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ABSTRACT 


Due to peacetime training limitations, the integration 
of tactics and logistics as it relates to the command and 
control of a field artillery battalion cannot be easily 
practiced. This thesis presents a computer assisted wargame 
which will give battalion staff officers some experience in 
dealing with this shortcoming. The wargame emphasizes the 
decision maker in the command and_ control system. 
Specifically, this wargame forces the decision maker to 
consider numerous tactics / logistics interface issues and 
then make a series of command and control type decisions. 
At the end of each game, the player’s performance is 
evaluated in terms of howitzer availability time, casualty 
rates, vulnerability rates, and ammunition optimization. 
The wargame itself is highly flexible and is capable of 
being played in support of a full scale battalion command 
post exercise or during weekly officer professional 


development time. 
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I. DESCRIPTION OF THE PROBLEM 


A. INTRODUCTION 

In the United States Army, combat-arms-type units have a 
very difficult time finding ways to conduct fully realistic 
training. In a peacetime environment there are many factors 
waren inhibit realistic training. Budgetary constraints 
limit the scope and duration of training as well as minimize 
the amount of ammunition expended. Safety considerations 
limit intensity and realism in training. And, the lack of 
adequate training areas compresses the size of the "training 
battlefield" so that training does not take place over 
realistic distances. The implication to those concerned 
with the command and control of combat units is that there 
is very little "hands on" experience available in the 
integration of tactics and logistics as it relates to the 
command and control of these units. This lack of hands on 
experience by our officers is a potential deficiency which 
deserves some attention. 

In order to address this deficiency, there are many 
options available. These options range from training 
through "field training exercises" (FTX) down to classroom 
Masteruction. An FTX would theoretically provide the best 
Situation for training the tactics / logistics interface. 


However, FTXS rarely provide more than a start point for 


understanding the tactics / logistics interface issues. 
This is true due ce budget constraints, safety 
considerations, training area limitations, and low peace 
time ammunition consumption rates. In short, we are never 
faced with the problems of moving enough ammunition to keep 
up with tactics or slowing tactics to keep pace with 
ammunition resupply rates because we rarely fire ammunition 
on combined arms exercises (at least not at a realistic 
rate). 

Classroom instruction can serve as an introduction to 
the issues related to the integration of tactics and 
logistics but it lacks the critical element of hands-on 
experience. An individual must confront and solve these 
type of problems for himself in order to be effective at the 
beginning of the next war. 

The next best thing to an FTX is a command post exercise 
(CPX). In the CPX, all but the command and control elements 
are played notionally. Normally, some type of wargame 1S 
played at a remote location and then the various command 
posts must perform their wartime functions in accordance 
with the wargame scenario. In most cases, when CPX’S are 
run by higher level headquarters, the resolution 1s such 
that very little training on the integration of tactics and 
logistics takes place at the battalion level. In fact, the 
nature of the tactics / logistics problem is such that it 1s 
very difficult for a wargame to provide an environment which 
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trains officers in the integration of these functions. Most 
wargames either emphasize tactics or logistics but not both. 
This is due to the fact that it requires much more detail 
than can be generated under normal conditions in a manually 
run wargame. 
B. WHAT IS MEANT BY THE INTEGRATION OF TACTICS AND 
LOGISTICS? 
According to Army Field Manual 100-5... 
Commanders must plan tactics and logistics concurrently 
to insure that the tactical scheme of maneuver and fire 
Support are logistically supportable. They consider the 
constraints that Combat Service Support planners 
identify. They modify unsupportable plans or accept the 
risks involved. [ref. 1: p. 5-1] 
This refers primarily to the integration of tactics and 
logistics in the planning of operations. However, the 
integration process does not stop there. During the conduct 
of operations, the integration of tactics and logistics is a 
continuous process which is driven by factors such as 
expenditure rates, casualty rates, supply availability, 
supply transportation capacity, and the tactical situation. 
All of these factors must be carefully managed in order to 
conduct a cohesive operation. Failure to integrate tactics 


and logistics can result in failure to accomplish the unit’s 


overall mission. 


C. SCOPE OF THE THESIS 
This thesis describes the use of a battalion level, 
computer assisted wargame, played by the battalion 
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operations and logistics staff sections, to train officers 
in the integration of tactics and logistics as it applies to 
the command and control of a field artillery battalion. 
Limiting the discussion to the command and control of a 
field artillery battalion was done only to provide a 
manageable start point for exploring the larger issue of 
training officers in the integration of tactics and 
logistics. The field artillery battalion is a logical 
choice as a start point because of the field artillery’s 
dependence on extremely large quantities of bulk ammunition. 
In wartime, this dependence will dictate the movement of 
firing batteries and the rate at which firing batteries can 
shoot. Ammunition trucks will become a scarce resource that 
needs to be carefully managed to ensure optimum ammunition 
resupply as well as survivability. Therefore, in addition 
to consideration of howitzer vulnerability thresholds, the 
tactical situation, movement plans, fire plans, and casualty 
projections, the commander and his staff will also have to 
consider unit distribution plans or point distribution 
plans, potential limitations on firing rates, ammunition 
truck movement plans, and truck vulnerability thresholds. 
This thesis presents a wargame that attempts to capture 
these concepts in a form which will provide a learning 
environment for those tasked with the command and control of 
a field artillery battalion. The wargame is only computer 
assisted. It is important to note that the “essential 
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ingredients of any command and control system...are the 
commanders or decision makers themselves." [ref. 2: p. 618] 
The computer portion of the wargame will only provide 
relevant information to the decision maker, execute his 
decisions, and keep track of the game’s statistics. At the 
end of the game, a measure of effectiveness (MOE) will be 
computed which will provide an assessment of the player’s 
performance. The MOE is based on a computation of the 
howitzer availability time, the amount of time spent at a 
critical vulnerability level, the amount of time lost due to 
casualties, and the amount of time spent short of sufficient 
amounts of ammunition. This will force the decision maker 
to plan ahead and to consider all of the relevant concepts 
in order to maximize howitzer availability time, minimize 
vulnerability, minimize casualties, and optimize ammunition 
resupply. The intent of the wargame is to provide an 
environment in which officers can learn to consider the 
factors which are critical to the integration of tactics and 
logistics. 

In order to build such a wargame, an analysis of the 
architecture of field artillery battalion is required. This 
analysis is the topic of Chapter II. Using this analysis, 
the approach taken to design a wargame which trains officers 
in the integration of tactics and logistics as it relates to 
the command and control of a field artillery battalion is 


discussed in Chapter III. Chapter IV describes’ the 


processes used by the computer to derive some of the more 
important aspects of the wargame. A user’s manual for the 
wargame is provided in Chapter V. Finally, Chapter VI 
discusses suggested enhancements and potential uses of the 


wargame. 


II. THE FIELD ARTILLERY BATTALION SYSTEM / ARCHITECTURE 


A. INTRODUCTION 

Before building a wargame that simulates the operations 
ma tield artillery battalion, it is critically important 
to analyze the battalion in order to determine how it works. 
More specifically, it is important to know not only the 
internal interactions which take place within the battalion, 
but also the interactions the battalion has with external 
elements. It is important to understand the battalion’s 
environment and its mission. More importantly, it is 
important to understand how the environment affects the 
battalion’s ability to achieve its goals and if there are 
any other constraints which may hinder the achievement of 
these goals. 

One proven method of analysis is through the use of the 
"Systems Approach." A system, as defined by Professor James 
G. Taylor of the Naval Postgraduate School, is a "collection 
of elements which combine together to form a whole in order 
eeeaccomplish a™goal."™”[ref. 3] The systems approach 
provides a method of developing the system by considering 
the system’s goals, the environment, the mission, the 
resources, and the management [ref. 4: p. 44]. 

To supplement the systems approach, the system 


architecture provides a depiction of the "interconnections 


between elements of the system. Interconnections can be 
based on time, functionally informational or’ spatial 
relationships." [ref. 4: p. 126] 

Through the use of both the systems approach and the 
systems architecture, the field artillery battalion can be 
thoroughly analyzed. A conscious effort has been made to 
separate the analysis using the systems approach and the 
systems architecture. It was felt that it would be better 
to first conduct a written analysis of the battalion using 
the systems approach and then fill in between the lines by 
letting each graphical portrayal of the system architecture 
say "a thousand words". This analysis will be helpful in 
determining which aspects of the battalion will be germane 
to the design of the wargame and which system 


characteristics can be ignored. 


B. FIELD ARTILLERY MISSION 

The mission of the field artillery is to "destroy, 
neutralize, or suppress the enemy by indirect fires and to 
integrate all fire support into combat operations. 
Successful execution of this mission demands effective 
integration of field artillery fires into the scheme of 
maneuver and swift, exact, execution from the time a target 
1s acquired until ordnance is delivered on target." [ref. 5: 
Pp. P11) Field Manual 6-20-1, FIELD ARTILLERY CANNON 


BATTALION OPERATIONS, goes on to say that in order for the 


battalion to support maneuver forces on the battlefield 
successfully, it must survive to perform the following 10 


basic tasks: 


1. Target Acquisition--Detecting and engaging targets 
that threaten maneuver elements of the supported 
brigade. 


2. Meteorology, Survey, Technical Fire Direction--The 
battalion operations officer (S3) insures that fire 


direction centers (FDC) have the information they need 
to conduct effective fire direction. 


3. Fire Planning--Field artillery fires are planned to 
achieve one of three effects on the target: 
suppression, neutralization or destruction. The desired 
effect will be determined by the supported unit 
commander, the fire support coordinator (FSCOORD), or 
the fire direction officer. 


wee tactical’ Pare Centrol<--Tactical fire direction in- 
cludes selection of rounds, shell/fuze combinations, and 
designation of units to fire. 


5. Plans and Orders--Command and control of the field 
artillery cannon battalion is established through the 
assignment of tactical missions. 


6. Positioning--The planning for the selection of any 
position must include consideration of communication 
requirements and combat service support in addition to 
the mission, terrain, and tactical situation. 


7. Reconnaissance--Reconnaissance is performed to se- 


lect the best battalion and battery positions, march 
routes, start and release points, command posts, 
observation posts, and communication sites, and to 
analyze the terrain where the battle will be fought. 
Prior to or concurrent with reconnaissance, the field 
artillery commander/S3 should coordinate with the 
maneuver commander/S3 to determine what areaS maneuver 
units plan to occupy. Mutual agreement must be 
established to make the best use of the available 
terrain. 


8. Displacement--Field artillery battalions must fre- 
quently displace to provide continuous fire support to 
maneuver units. There are three general ways that a 
field artillery battalion moves; by unit displacement, 
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by echelon, and by battery. In unit displacement, the 
entire battalion moves at once and no units are 
available to provide fire support. In displacement by 
echelon, some portion of the battalion moves and sets up 
in the next position and then the other portion of the 
battalion moves. In displacement by battery, one 
battery at a time displaces. This method provides the 
Maximum amount of fire support at any given time but it 
is sometimes too slow to keep up with maneuver. 


9. Communications--The cannon battalion commander must 
rely on communications to control elements of his 
command, gather information, distribute intelligence, 
and coordinate fire support. The primary means of 


communications in the cannon battalion are radio anad 
wire. 


10. Combat Service Support (CSS)--CSS is the process of 


keeping the maximum number of weapon systems 
operational. The support functions and operations in 
the battalion by the personnel officer (S1), logistics 
officer (S4), or any other supervisor must be closely 
coordinated with tactical operations. A continuous 
exchange of information among CSS coordinators, the S3, 
and battery commanders is essential to the success of 
both tactical and logistical plans. [ref. 5] 

The mission of the field artillery and its implied tasks 
are critical to understanding how the field artillery 
battalion works and how to build a wargame which simulates 
the battalion. The mission can be broken into two parts. 
The first is the requirement to be capable of delivering 
timely, accurate, and effective fires and the second is to 
provide those fires in a manner which supports the overall 
scheme of maneuver. The ten basic tasks are the implied 
tasks which any field artillery unit must be able to perform 
in order to accomplish the field artillery mission. These 
tasks are important because they represent functions that 


the wargame will have to be able to perform to varying 


degrees depending on the mission and goals of the wargame. 
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The field artillery mission clearly implies that the 
field artillery battalion is a part of a larger system 
which, among other things, dictates the scheme of maneuver 
which must be supported. The mission also implies that in 
order to provide swift, exact indirect fires, much 
coordination and interaction with external elements must 
take place in order to ensure that the artillery can range 
the enemy, has enough ammunition on hand to support the 
operations, and has coordinated positions to which it can 
displace. Finally, the mission implies that the unit must 


be able to survive to perform all of these tasks. 


C. GOALS 

The mission and its implied tasks can be boiled down to 
several goals. These goals are necessary because they help 
to quantify the degree to which the unit is effective in the 
accomplishment of its mission. They also help to further 
describe the system and the positive and negative 
motivations which are inherent in the system. ete ss 
respect, an analysis of the goals will be very useful to the 
design of the wargame and particularly to the design of any 
MOEs which may be necessary. 

The goals were chosen to address the mission and its 
implied tasks. They are stated in quantifiable terms. 
These goals are closely related and some could actually be 


considered as sub-goals to other goals. However, they have 
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been separated into different goals based upon the fact 
that there are specific command and control actions which 
can be taken to optimize each goal. In many cases these 
actions serve to oppose other goals and so a set of 
tradeoffs must be considered. The four goals are described 
below. 

1. Maximize Availability Time 

First and foremost, the battalion must be able to 
Support the maneuver units. This means that the battalion 
must have the maximum number of cannons in a firing status 
for the maximum amount of time. It also means that the 
firing units must always have ammunition to fire and that 
they should minimize the number of tubes lost to maintenance 
or enemy fire. 

In operational terms, it means that firing units 
must displace as little as possible without letting the 
enemy get out of range and without letting themselves get 
too vulnerable to enemy detection. This goal can @ee 
measured in tube hours, i.e., the sum of the total number of 
hours each tube is capable of providing fire support. 

2. Minimize Vulnerability 

A firing unit becomes more vulnerable to enemy 
detection in two ways. First, the longer a unit is a9 
position, the more likely it is that it has been located by 
aerial reconnaissance. Second, the more rounds a firing 
battery fires out of a position, the more likely that unit 


V2 


has been located by enemy counter-battery radar. These 
probabilities of detection can be determined from 
probability of detection versus time and versus "rounds 
fired" curves, respectively. These probabilities can be 
combined to derive a vulnerability factor. 

In operational terms, a commander must be willing to 
accept some degree of vulnerability. Some positions are 
more vulnerable than others due to the amount of cover and 
concealment available. A vulnerability threshold can be 
specified by a commander in terms of rounds fired out of a 
position when time in the position is less than _ some 
specified maximum allowable time in that position. A unit 
should move when it reaches the commander’s vulnerability 
threshold so that its vulnerability level is reset at zero. 
Many times, due to the tactical situation or due to a lack 
of prior planning, the commander can not move a unit when it 
reaches the commander’s vulnerability threshold. It is the 
time spent above the vulnerability threshold that the 
commander wants to minimize. This goal can be measured in 
the number of tube hours spent above the vulnerability 
threshold. 

3. Minimize Casualties 

Casualties can be incurred both in positions and 
during displacement. In operational terms, a commander can 
minimize casualties by moving often thereby minimizing 
vulnerability. Or, he may take the safest but not 
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necessarily the shortest routes on displacements. This goal 
to conserve assets for both current and future operations 
must be balanced against the goal to maximize availability 
time. This goal can be measured in terms of the tube / 
truck / equipment / personnel time lost during the operation 
due to casualties. 
4. Optimize Logistics Operations 

Logistics operations also experience vulnerability 
and casualties and therefore goals two and three apply to 
logistics units. More importantly, logistics units are 
critical to the attainment of the first goal. Fire units 
which are low on ammunition or fuel can not adequately 
support maneuver forces and fire units which are out of 
those supplies are not available to support maneuver units. 

In operational terms, there are many different forms 
of resupply operations. The battalion trains can deliver 
supplies to the unit (unit distribution) or it can deliver 
the supplies to a point where the fire units will have to go 
to pick up their supplies (point distribution). “the trae 
can bundle their trucks into convoys to pick up and deliver 
Supplies or they can use the "trickle" method to pick up and 
deliver supplies by sending as few as one truck at a time as 
the trucks become available. The method used depends on the 
tactical situation, the enemy situation, the terrain and the 


level of training of the units. 
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Optimization refers to making the most efficient use 
of the supplies and the resupply assets in order to ensure 
accomplishment of the field artillery mission. This goal 
can be measured in terms of the amount of time firing units 
spend critically short, or out of, critical supplies. 

This analysis of the field artillery battalion’s 
goals and especially the statements of the goals in 
operational terms tells us a lot about the internal 
operation of the battalion and about what motivates 
operational decisions. These motivating factors must also 
be present in the wargame in order to have any true training 


value. 


D. ENVIRONMENT 

The field artillery battalion exists in an environment 
consisting of both friendly and hostile elements. The 
friendly environment can also be divided. fiiCOnslists of 
command relationships and support relationships. 

Command relationships refer to the fact that the field 
artillery battalion is commanded by the division artillery 
which is commanded by the division and the fact that the 
maneuver battalions are commanded by the maneuver brigade 
which is in turn commanded by the division and finally that 
the support battalions are commanded by the division support 
command which is also commanded by the division. In short, 
there is no command relationship between the field artillery 


battalion and the maneuver units or the support units. 
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Support relationships refer to the relationship that 
does exist between the field artillery battalion and the 
maneuver units and the support units. The direct support 
field artillery battalion has a mission to provide close 
support to a maneuver brigade. With this mission, according 
to Field Manual 6-20-1, comes the requirement to provide 
first priority on calls for fire to the brigade anda 
provide fire support coordinating personnel to the brigade. 
The division artillery assigns missions to the field 
artillery battalion. By the same token, the division 
support command assigns missions to its subordinate units to 
provide service support to various divisional units. In 
this manner, the field artillery battalion will have a 
support unit assigned to provide supplies to support its 
mission. 

The hostile side of the environment refers to the fact 
that the enemy exists to prevent accomplishment of the 
battalion’s mission. It does this by producing casualties, 
by interdicting critical supplies, disrupting the planjeame 
disrupting command, control and communications. There are 
many forms of hostile acts performed by the enemy. Any 
wargame must consider this aspect of the environment. 

Another aspect of the environment is the fact that all 
the elements of the system and the elements of the external 
environment exist on the battlefield. They are separated by 
considerable distances and must move frequently in order to 
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stay in the battle. They are positioned so as to best 
facilitate eoconoa i chment of their mission and to assure 
survivability. They are positioned on terrain which 
provides some degree of cover and concealment and which may 
or may not facilitate communications with other elements of 
the system and environment. 

Finally, a discussion of the environment would not be 
complete without considering what Clausewitz called 
PERICTION." f[ref. 6] This refers to the fact that 
operations never occur as planned. There are many reasons 
for plans going wrong which are beyond the control of the 
commander. All of them are lumped together and called 
feetion. This requires commanders to be flexible. They 
must be able to modify plans quickly and issue effective 
fragmentary orders. 

An understanding of the environment is necessary for a 
full understanding of the field artillery battalion system. 
It is also necessary to include the critical aspects of the 


environment in the wargame. 


E. RESOURCES 

The battalion’s resources primarily include its people, 
its equipment, and its supplies. Its people include its 
leaders and its soldiers. They are trained and work 
together as a part of a team. They operate the equipment 


which helps to accomplish the mission. People are the 
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battalion’s most important resource. It takes people to 
operate the equipment and to use the supplies. It takes 
trained people who can work together as a cohesive unit to 
accomplish the battalion’s mission. 

The field artillery battalion’s most critical equipment 
includes its weapon systems, fire direction systems, and 
supply trucks. All are critical to accomplishment of its 
mission. 

The field artillery battalion’s most critical supplies 
are food, fuel, and ammunition. All are critical jae 
accomplishment of its mission. Units establish required 
supply rates (RSR) which tell higher level units how much 
ammunition 1s required to accomplish the mission. The 
higher level unit then establishes the controlled supply 
rate (CSR) which is based upon how much ammunition is 
available. If the CSR is less than the RSR, then the unit 
must curtail operations to avoid exceeding the CSR. 

Resources can be easily represented by computer 
Sma tome, However, the manipulation and expenditure and 
conservation of resources to accomplish the mission, which 
is the subject of the next paragraph, is best left to the 


human interaction portion of the wargame. 


F. MANAGEMENT 
In the military, the commander is responsible for all 


that his unit does or fails to do. However, he has a staff 
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to assist him in the two primary management functions of 
planning and controlling the battalion. The commander 
alone, however, must provide leadership for the battalion. 
His leadership serves to inspire and motivate his soldiers 
and it provides direction for his subordinate units and his 
staff. In addition to providing direction, the commander 
must approve all plans and issue all orders in his name. 
These aspects of command are very difficult to simulate 
using computers and are best represented in wargames by the 
human players themselves. 

Staffs conduct planning under the commander’s guidance. 
The S3 is responsible for incorporating all of the staff 
estimates and determining the recommended course of action. 
The commander then either approves or selects his own course 
Sieeaction. The staff then prepares the plans to execute 
that course of action. The plan becomes an order when 
issued to subordinates with an execution time. Planning is 
a complex process which requires much training. It is 
therefore suitable for the human element in a wargame. 

Controlling refers to the process of monitoring 
operations to ensure that they are being carried out within 
the commander’s intent. It also refers to monitoring the 
overall tactical situation to determine if the plan is still 
appropriate. If it is not appropriate, it involves 


modifying the plan and issuing fragmentary orders. 
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Controlling iS a continuous process which requires the 
commander and his’ staff to monitor the  battalion’s 
environment and resources and to make the tradeoffs implied 
in the battalion’s goals, all in order to accomplish the 
battalion’s mission. This complex process is especially 
appropriate for the human interaction portion of the 


wargame. 


G. ARCHITECTURAL LINK DEPICTIONS 

The discussion of the field artillery battalion thus far 
using the systems approach has been very useful in 
understanding the battalion so that an effective wargame can 
be designed. Graphical portrayal of the discussion in the 
form of the battalion’s system architecture will now be 
useful in clarifying and adding to that discussion. 


Systems architectures can be depicted in _ several 


different ways depending on the perspective desired. Fou 
the purposes of this thesis, functional, spatial, 
informational, and time depictions will be used. A 


description of each can be found in this section. 
1. Functional 
"Functional architecture describes the technical 
structure of large systems." [ref. 7: p. 2.4] Figure 2.1 1s 


a functional depiction of the divisional supersystem. 
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Everything outside of the field artillery battalion itself 
is a part of the battalion’s environment. Boxes within 
other boxes indicate command relationships. Arrows indicate 
support relationships. 

Figure 2.2 is a functional depiction of the field 
artillery battalion. Again, boxes within other boxes 
indicate command relationships. However, in this case the 
primary function of each element is listed next to its box. 

2. Spatial 

Spatial architecture depicts the physical 
relationship of the elements in the system. Figure 2.3 is a 
spatial depiction of the field artillery battalion system. 
Since a direct support field artillery battalion normally 
SupportS a maneuver brigade, the brigade’s battlefield 
geometry is depicted. The firing batteries must be able to 
project approximately two-thirds of their range into enemy 
territory. Therefore, the howitzers are found four to eight 
kilometers behind the front line of troops’ (FLOT). 
Normally, all three batteries support the entire brigade 
rather than one battery per maneuver battalion. Therefore, 
batteries are positioned where they can best support the 
entire brigade in accordance with the battalion’s battery 
displacement plan. 

The battalion tactical operations center (TOC) must 
be positioned farther back for survivability. But it must 
be in close proximity to the supported brigade headquarters 
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and it must be able to communicate with the firing batteries 
and the brigade Toc. 

The battalion trains are located even farther to the 
rear for survivability and for ease of coordination with 
support units. The dotted lines which emanate from the 
trains indicate that resupply convoys are constantly on the 
road. 

The spatial architecture is important because it 
puts the physical relationships of the elements. in 
perspective. An appreciation of the distances involved is 
necessary to the wargame to simulate the times required for 
events to transpire. 

It is also important to note that Figure 2.3 is only 
a snapshot of the system at a particular instant in time. 
Elements of the system must continuously move in order to 
perform their missions and enhance survivability. 

3. Information 

Information architecture is especially important to 
the design of the wargame because it depicts the information 
flow both within the system and to external elements. 
Figure 2.4 depicts this flow for the battalion and its 
environment. Only the most critical elements of information 
have been depicted. 

Implied in Figure 2.4 is the fact that if 
information flows between two elements, then a 
communications system must exist between them. This figure 
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Figure 2.4 Field Artillery Battalion Information Architecture 
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does not show the communications nets. It only relates that 
communications exists between the elements. The habitual 
flow of information between elements leads to the use of 
various message formats for different types of information 
and it leads to standard operating procedures which dictate 
when and how the messages will be sent. 

Also depicted on Figure 2.4 with a dotted line is 
the system boundary. Everything within the dotted line is 
in the field artillery battalion system. Everything outside 
the dotted line is external to the system. The lines of 
communications that cross the boundaries are then external 
communications and the lines of communications within the 
boundaries are internal communications. 

The information architecture is extremely important 
to the analysis as it relates to the design of the wargame. 
The primary problem will be which information is needed in 
the wargame and which information is not necessary to 
accomplish the goals of the wargame. Dividing the 
communications into internal and external communications 
also will be helpful in arriving at a solution to the 
problem. 

4. Architectural 

Architectural depictions based on time relationships 
help to place events in their natural order. In a complex 
system such as the field artillery battalion, this can be 
mery difficult Oo 5:d0; Schedules of events are not 
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appropriate because events do not usually happen at a 
specific time. It is even difficult to attempt to put 
events into a chronological order without assigning specific 
times. The best that can be done is to use the concepts of 
time based depictions of architecture to analyze the combat 
process. 

Figure 2.5 is the Conceptual Combat Operations 
Process Model [ref. 8: p. 27]. By avoiding specific events 
and analyzing the generic process instead, an understanding 


of the logical order of the component parts of any operation 


can be gained. It is important to note that as a generic 
model, it applies to tactical operations, logistical 
operations, and applies equally well to both current 


operations and future operations plans. 

Figure 2.5 implies that combat operations consist of 
a cyclic process which is stimulated by the environment and 
leads to an attempt to understand the environment. This is 
followed by the formulation of alternative courses of 
action, guidance from higher headquarters, and ultimately a 
decision to take some action which relates to the perception 
of the environment. This decision 1s then sent to 
subordinate elements and is executed. This in turn has some 
impact on the environment and changes the stimulus which 
caused the action in the first place and the process repeats 
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This model gives structure to the wargame by 
providing a logical order to the functions which must be 
performed both by the computer program and the human 


interaction portions of the game. 


H. SUMMARY 

In order to build a wargame that trains officers in the 
integration of tactics and logistics, an analysis of the 
field artillery battalion is necessary. Use of the systems 
approach provides a structure for this analysis so that all 
of the important aspects of the battalion can be considered. 
The understanding of the field artillery battalion which was 
gained through this analysis is critical to the design of 
the wargame. The next chapter will discuss the approach 


taken in the design of this wargame. 
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III. THE CONCEPTUAL APPROACH 


A. INTRODUCTION 

This section is not intended to provide detailed, 
technical design criteria for the wargame. Rather, it is 
intended to provide the approach taken to resolve many of 
the issues which arose while conceptualizing this wargame. 

It is important to differentiate between the field 
artillery battalion system and the wargame. The wargame can 
be considered a system unto itself. Therefore, the best way 
to look at the conceptual approach is by using a system view 
of the wargame. In many cases, the best approach to take 
for certain system aspects of the wargame is to simply 
Simulate the same system aspects from the field artillery 
battalion. In other cases, there are some important 
differences. Therefore, specific references will be made to 
the wargame system and to the battalion system in order to 
avoid confusion. 

As with the battalion, a discussion of the mission, 
goals, environment, resources, and management follows. 
These aspects, along with a discussion of some of the 
architectural depictions, will provide the vehicle for a 
complete discussion of the approach taken for the design of 


this wargame. 
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B. MISSION OF THE WARGAME 

The mission of this wargame is to train officers in the 
integration of tactics and logistics as related to the 
command and control of a field artillery battalion. There 
are several implied tasks which are necessary for the 
wargame to accomplish this mission. The wargame must be 
oriented toward the command and control elements of the 
battalion. Therefore, the players will consist of an 
operations and intelligence (O&I) staff section, a logistics 
(S4) staff section, and a battalion commander. It muse 
require the players to weigh all of the tradeoffs involved 
in integration of tactics andwloqmseice: Special emphasis 
must be given to those areas which are not normally 
experienced in a peacetime training environment. Since the 
mission is to train officers, the wargame must provide 
feedback to the officers so that good decisions are 
reinforced and poor decisions are penalized. This can be 
done through the use of a measure of effectiveness which 
evaluates the player’s performance. Finally, the wargame 
must be able to provide a realistic representation of the 
field artillery battalion system. This means that the field 
artillery mission should be central to the wargame’s design. 
Each of the artillery’s ten implied tasks must be performed 


by the wargame to varying degrees. 
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1. Target Acquisition 
This function will not be explicitly played in the 
first iteration of the wargame. Targets will be provided to 
the battalion TOC. All other firing will be done at some 
predetermined rate depending on the tactical situation. 
2. Meteorology, Survey, Technical Fire Control 
These functions also will not be explicitly played 
aS a part of this wargame. This is due to the fact that 
these functions are not germane to the wargame’s mission of 
Peeaining officers in the integration of tactics and 
logistics. These functions relate to the computation of 
actual firing data. 
3. Fire Planning 
This function must be performed as a part of the 
wargame at a tactical level since it occupies a significant 
portion of the operations and intelligence section’s time. 
More importantly, it must be done with the logistics 
Situation in mind. It requires an analysis of the CSR in 
order to avoid firing too many rounds. 
4. Tactical Fire Control 
Some battalion level fire missions will be useful 
for causing the O&1I section to determine the number of 
rounds to fire on a given target and the number of fire 
units. However, the level of resolution need not include 
the various shells and fuzes in the wargame’s first version. 
Once again, this will cause the O&I section to weigh the 
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desire for effects on target against the logistics 
situation. 
5. Plans and Orders 
These functions represent the essence of the command 
and control / battle management portion of the wargame. 
They will be performed by the players as they would actually 
perform them in a real wartime environment. The game will 
begin with a hard copy of the supported maneuver unit’s 
operations order. The O&I section and the logistics section 
will then begin planning, develop an order, and then, using 
the computer, send the order to the units to execute. The 
computer program portion of the wargame 1s responsible for 
the execution of all orders. 
6. Positioning 
This function is also extremely important to the 
design of the wargame. All positions must be coordinated 
with the maneuver unit that owns the land. Positions must 
also be coordinated with the resupply plan. 
7. Reconnaissance 
Reconnaissance must be performed within the wargame 
so that realistic plans can be made. At the very least, map 
reconnaissance can be performed. Ultimately, a computer run 
network using Dykstra algorithms can be used to simulate 
route reconnaissance to determine the shortest or quickest 


routes. 


34 


8. Displacement 
This function is central to the integration of 
tactics and logistics. Displacement routes must be well 
planned and coordinated with the resupply plan. The 
movement times must be minimized in order to maximize 
availability time. Routes which are under air defense 
umbrellas may be longer but they reduce casualties. 
Displacements must be timed so as to avoid falling too far 
behind maneuver forces or to avoid getting overrun by the 
enemy. Additionally, displacements should be timed to 
Minimize the amount of time a unit spends above the 
commander’s vulnerability threshold. All of these tradeoffs 
should exist within the wargame as well as the actual 
movement of the units along the paths and nodes of the 
previously mentioned network. 
9. Communications 
Some sense of communicating orders and receiving 
reports must be contained within the game. The computer 
assisted portion of the game will provide this service. The 
players will be able to establish certain standard operating 
procedures (SOP) to control such things as the frequency of 
standard reports like the unit situation reports. 
10. Combat Service Support (CSS) 
This Pune ton is obviously Crite1 cal to 
accomplishment of the wargame’s mission. In order to give 
proper emphasis to the importance of this function, each of 
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the ammunition resupply trucks will be explicitly played. 
Of the various types of supplies, only ammunition will be 
played in the first iteration of the wargame. This ie 
because the other types of supplies are normally played 
through actual consumption even in peacetime exercises. It 
is ammunition which has the most bulk and the largest impact 
on tactics: 

This analysis of the wargame’s mission, along with 
its implied tasks, provides a discussion of the wargame’s 
intended purpose, its scope, and a brief description of the 


functions it must be able to perform. 


C. GOALS OF THE WARGAME 

The goals of the wargame are defined on two levels. The 
first concerns the goals of the wargame’s design and the 
second concerns the goals of the players of the wargame. 

The goals of the wargame’s design should simply be to 
design the wargame so that each of the battalion’s goals are 
not only played, but also their degree of accomplishment is 
measured. Specifically, availability, vulnerability, 
casualties, and logistics optimization should all be played 
in quantifiable terms so that they can be measured by the 
computer portion of the wargame. Once they are measured, a 
measure of effectiveness (MOE) can be computed. This MGs 


provides feedback to the player so that they can reassess 
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their decisions and perhaps improve their MOE the next time 
the wargame is played. 

The goals of the players should therefore be the same as 
for actual operations; to maximize fire support provided to 
maneuver units by maximizing availability time, to minimize 
the amount of time spent above the commander’s vulnerability 
threshold, to minimize the time lost to casualties, and to 
minimize the amount of time units spend either critically 
short or out of ammunition. 

These parallel goals (between the wargame and the 
players) serve as the thread of continuity which ties the 
wargame together. The wargame should be designed to 
accomplish the wargame’s system goals and all components of 
the system should contribute to the furtherance of the goals 
within the intent given by the wargame’s mission. In this 
way, the players will be able to use the same decision 
criteria in playing the wargame as they would in wartime. 
Their objective is to maximize the measure of effectiveness 
(MOE) by seeking to accomplish the player’s goals which are 
the same goals which are found in the field artillery 
battalion system. 

The actual MOE used for this wargame, named the Field 
Artillery Battalion Command and Control (FABCAC) 
Effectiveness Index by the authors, is directly related to 


each one of the goals. The MOE is as follows: 
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MOE = "tube hours available" ratio - “truck hours lost 
to casualties" ratio = "tube hours above’ the 
vulnerability threshold" ratio - (.5 * “tube hours 
critically short of ammunition" ratio). 
Each of the ratios in the MOE is in terms of actual hours 
over maximum possible hours. Tube hours lost due to 
casualties are not explicitly listed in the MOE because they 
are accounted for under availability time. Tube hours lost 
due to ammunition outage are also accounted for under 
availability time. By accounting for ammunition outage 
under availability time, the players are afforded the 
opportunity to minimize the effect of an ammunition zero 
balance by moving a unit since it cannot shoot anyway. In 
this way, the players can get the unit into a better 
position tactically and set its vulnerability level to zero 


while out of ammunition rather than during a period in which 


the unit could be shooting. 


D. WARGAME ENVIRONMENT 

The wargame simulates many of the more important aspects 
of the field artillery battalion system environment. First 
and foremost is the fact that the battalion exists in a 
hostile environment. This is reflected in the wargame by 
inducing attrition of howitzers and ammunition trucks using 
Lanchester-type equations. Attrition takes place both in 
positions and along displacement routes. Attrition rates 


are based upon force postures and the tactical situation. 
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Command and support relationships should be understood 
by the players. The wargame is consistent with actual 
doctrine in this respect. 

ime tacts ~that™ all™ of the units eéxist on the 
battlefield, are separated by considerable distances, are in 
positions which provide varying degrees of cover and 
concealment, and must move around the battlefield are all 
important to the design of the wargame. It is anticipated 
that the computer generated network will allow these aspects 
of the environment to be simulated. Many of the nodes will 
represent positions which afford varying degrees of cover 
and concealment. The paths indicate the distances between 
nodes and are used to control the movement of units between 
nodes so that realistic travel times are generated based 
upon path capacities. Additionally, paths have attrition 
characteristics which will determine the amount of attrition 
incurred by a unit while on that path. 

Finally, "friction" is an important element to portray 
in any military wargame. Units will not always move through 
a route exactly as scheduled. Enemy artillery attack will 
Cause unscheduled moves. These kinds of problems are also 
found in the wargame in order to cause the players to be 
flexible and issue fragmentary orders to rectify the 
Situation. 

The approach for the actual physical environment of the 
wargame involves a computer program which is written for 
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execution on a personal computer. It is important to 
restrict the wargame to execution on a PC because that is 
all that most battalions have readily accessible. This 
wargame can be played by the O&I section, the logistics 
section, and the battalion commander in the battalion 
headquarters or the PC can be set up in the battalion 
tactical operations center (TOC) in the motor pool. In 
either case, situation maps and status boards will be 
necessary not only to keep up with the battle, but also to 
help evaluate the effectiveness of the section’s SOPs and 


information management procedures. 


E. WARGAME RESOURCES 

Other than the players themselves, personnel are not 
explicitly played as a part of this wargame. It is assumed 
that when equipment is lost, its personnel are also lost and 
vice versa. 

The only equipment represented in the wargame are 
howitzers and ammunition trucks. These are the primary high 
density items of equipment found ina battalion. They are 
also the items of equipment which most significantly impact 
on the accomplishment of the wargame’s mission. 

The only supply represented in this version of the 
wargame 1S ammunition. Ammunition, by far, represents the 
most bulk in resupply operations and is directly involved in 


the integration of tactics and logistics. 
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In order to effectively run the wargame, the following 
resources will be necessary: 
1. Operations players, logistics players, and commander. 
2. One, IBM compatible, personal computer. 


3. Maneuver unit operations order, overlays, and maps. 


4. O&I section and logistics section status boards and 
map boards. 


5. Wargame computer software and user’s manual. 


F. MANAGEMENT OF THE WARGAME 

All of the management as defined for the field artillery 
battalion system will be handled within the human 
interaction portion of the wargame. The commander will 
provide direction and leadership to the staff and he will 
make final decisions. The staff (O&I and logistics) will 
prepare estimates and plans. They will also assist the 
commander in monitoring operations by interpreting reports 
and preparing and communicating orders and by assessing the 


Situation to determine if the plan needs to be modified. 


G. ARCHITECTURAL DEPICTIONS 

Once again, an effort has been made to separate the 
architectural depictions into four categories which 
represent functional, spatial, informational and time 
relationships. The architectural depictions have _ been 
separated from the previous discussion because most of the 


depictions transcend any one aspect of a system and 
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therefore serve to tie together the previously mentioned 
ideas. Additionally, they reveal new aspects of the system 
which have not already been discussed. 
1. Functional 

"Functional architecture describes the technical 
structure of large systems." [{ref. 7: p. 2.4) Figuregee 
represents a decision taxonomy known as the "SHOR" paradigm 
(ref. 2: p. 626). Within the context of this thesis, “aie 
"SHOR" paradigm is used to indicate, at a conceptual level, 
the boundary between the human portion of the wargame and 
the computer portion of the wargame. What is inside the 
dotted line is the human portion of the game and what is 
outside the dotted line is handled by the computer. An 
interpretation of the depiction indicates that the computer 
Will provide some kind of trigger event which will provide 
the stimulus or data to the players (S). This will cause 
the players to attempt to interpret the data to determine 
what it means in relation to their mission accomplishment 
(H). They will then create alternative courses of action to 
counter the perceived impact of the data (0). Finally, they 
will take action by issuing an order (R). This order is 
executed by the computer and has some effect on the 
environment. The players monitor the environment and 
collect raw or preprocessed data and the cycle repeats 
itself. At any given time, multiple stimuli can be received 
by the players which can result in one or more responses. 
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Figure 3.1 The SHOR Model 
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The entire process takes place continuously for the duration 
of the game. 

Figure 3.2 is the computer architecture which will 
be used for the wargame. It has been divided into three 
major modules: the Pre-Processor, the Game, and the Post 
Processor. Each of these major modules has been divided 
into the lesser modules representing functions which are 
required to be performed to support the major module. Some 
of the more significant points which can be derived from 
this depiction are that the players will be able to input 
their own scenario if they do not want to use the one that 
will come with the game, the players will be able to input 
some of their own parameters which will represent their unit 
SOPs and commander’s guidance, and finally, the players will 
be able to save a game which is in progress and then get 
back to it later. 

2. Spatial 

Spatial architecture depicts the physical 
relationship of the elements in the system. Figure’ ame 
depicts a basic level configuration for game’s' set-up 
requirements. Figure 3.4 depicts the spatial relationship 
of the elements of the field artillery battalion within the 
wargame. In this figure, it is apparent that all of the 
elements are spatially related to each other through the use 


of the network architecture. Units are located at nodes and 
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Figure 3.3 Wargame Setup Requirements 


46 





ARTILLERY WARGAME 
SPATIAL ARCHITECTURE 


VULNERABILITY DISTANCE 
TYPE NODE 


© COVER & CONCEALMENT ROAD CONDITIONS 





NICO Vel ens 


25+ i518 Omen 1 2 6-8 0 


Figure 3.4 Artillery Wargame Spacial Architecture 
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Gisplace along paths. The legend contains a listing of the 
various characteristics of nodes and paths. 
3. Informational 
Informational architecture depicts the flow of 
information within the system. Figure 3.5 is very similar 
to Figure 2.4 except that only those elements of information 
which will be used in the wargame have been listed on the 
diagram. Additionally, in Figure 3.5, the dotted line 
separates the game’s players from the computer portion of 
the wargame. 
4. Time 
The time based architectural depiction for the 
wargame is the same as for the field artillery battalion 
system. In both cases, the process that the key people must 
use to make decisions remains the same. Therefore, Figure 


2.5 applies equally well to the wargame. 


H. SUMMARY 

The basic conceptual approach taken for this wargame has 
been to analyze a field artillery battalion from a systems 
point of view. Then, using the knowledge gained from this 
analysis, lay out the conceptual framework for a wargame 
which emulates the pertinent aspects of the field artillery 
battalion. Once again, the systems approach is very useful 


in laying out this framework because it requires that every 
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facet of the system be considered under the categories of 
mission, goals, environment, resources, and management. 

The wargame attempts to capture this framework in a form 
which provides a learning environment for those tasked with 
the command and control of a field artillery battalion. The 
wargame is only computer assisted since the essential 
element of any tactical command and control system is the 
human decision maker. The computer portion of the wargame 
only provides relevant information to the decision maker and 
then executes his decisions and keeps track of the game’s 
statistics. At the end of the game, an MOE is calculated 
which provides an assessment of the player’s performance. 
This forces the player to plan ahead and consider all the 
relevant concepts in order to maximize howitzer availability 
time, minimize casualties, minimize vulnerability time and 
optimize ammunition resupply. The intent of the wargame is 
to provide an environment in which officers can learn to 
consider the factors which are critical to the integration 
of tactics and logistics. 

The computer program itself is complex. It utilizes a 
network architecture to facilitate the movement of firing 
batteries and ammunition convoys and it uses Lanchester 
attrition equations to decrement forces. Among other 
things, the program simulates firing, consumption of 
ammunition, movement of units, ammunition resupply, and 
changes in the tactical situation. Periodic reports as well 
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as emergency messages and warning reports are output to the 
decision maker. The decision maker has the ability to issue 
commands to the units. Among the commands are movement 
orders, firing rate orders, ammunition resupply orders and 
requests for situation reports from the units. 

Finally, all this must be done in a format which is 
usable at the battalion level. This means that it will be 
executable on a personal computer, it will be _ well 
documented, and it will enable the players to use their 


normal unit / section SOPs. 
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IV. WARGAME DESIGN 


A. INTRODUCTION 

The purpose of this Chapter is to supplement the 
documented source code which can be found in the Appendix. 
A description of the code’s structure and organization can 
be found in the documented source code. In this Chapter, a 
description of the overall design used in the coding of the 
computer portion of the wargame will be given. 

Turbo Pascal version 5.0 and Turbo Pascal Database 
Toolbox version 4.0 were used to code the wargame. Turbo 
Pascal was used is because Turbo Pascal is one of the most 
popular programming languages on the market. By using Turbo 
Pascal, there is a reasonable expectation that users will be 
able to modify their own source code. 

In order to implement the wargame as described in 
Chapter III, a "Time Step - Event Driven Hybrid" design was 
used. An "Event Driven" design was needed to enable the 
players to issue orders for future operations. A "Time 
Step" design was used to perform the routine functions which 
constantly occur over time in an artillery battalion. The 
hybrid design will become more apparent later in this 
Chapter. 

Finally, a great deal of the design considerations used 
for the wargame revolve around the desire to make the game 
as "user friendly" as possible. In order to achieve this 
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objective, no computer commands are used in the wargame. 
Everything is menu driven. All data entry fields are 
protected so that only the correct type of data can be 
entered. The terminology used by the game is as close to 


actual military terminology as possible. 


B. OVERALL WARGAME DESIGN 


The wargame’s overall design can be described by 


meterring to Figure 4.1. Note that upon loading the game 
there are three choices: "Play New Game", "Play Old Game", 
eee "Quit." If "Quit" is chosen, the player is returned 
immediately to MS-DOS. If "Play Old Game" is chosen, the 


old game’s files are loaded and the program goes straight to 
the Game Play Module. Finally, if "Play New Game" is 
chosen, the Pre-Processor Module is’ entered. The Pre- 
Processor is the portion of the computer program which 
allows the player to set up or initialize the game with such 
data as the battalion’s configuration, the unit movement 
network, the commander’s guidance, the game’s scenario and 
the game’s parameters. When the player is finished with the 
Pre-Processor Module, he enters the Game Play Module. 

From within the Game Play Module, the entire game is 
played. The design of the game itself will be discussed 
later in this Chapter. From the Game Play Module, the 
player can quit the game at any time. Upon deciding to 


quit, the player has two options: either to quit with the 
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intent to continue playing the game later or to permanently 
quit the game. When "Quit and Return" is selected, the 
game’s files are saved to disk. In both cases, the program 
then enters the Post-Processor Module. 

In the Post-Processor Module, the game’s statistics are 
tabulated and the Field Artillery Battalion Command and 
Control Effectiveness Index 1s computed. After this 
information is printed, the program returns the player to 


MS-DOS. 


C. RECORDS 

The basic data structure used in the wargame is the 
record. The following records are used by this version of 
the wargame. 


1. Scenario Record 


2. Commander’s Guidance Record 
Bie Game Parameters Record 
4. Field Trains Record 


== Fire Unit Record 

6. Ammunition Truck Record 

7. Events List Record 

8. Node Record 

9. Path Record 
The fields contained in each record can be found in the 
global declaration section of the source code. The first 
four types of records are all single records. The fire unit 
records and the ammunition truck records are maintained in 
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an array of records. Finally, the last three types of 
records are all stored in their own B+ lists in disk files 
created by the Turbo Pascal Toolbox. The events list 
records are stored in increasing order according to the 
event’s date time group. The nodes and paths are each 
stored in their respective lists according to the node and 
path name. 

The reason that the fire unit records and the ammunition 
truck records are stored in arrays is because there are only 
a finite number of those records and because every record 
must be accessed every time step. On the other hand, the 
event list, node, and path records are stored in database 
files because there are potentially an unlimited number of 
these records and because only selected records will be 


accessed in any given time step. 


D. GAME PLAY DESIGN 

The Game Play Module was designed in accordance with the 
flow chart depicted in Figure 4.2. Note that in this top 
level flow chart for the Game Play Module there is only one 
decision point. This was deliberately designed in order to 
focus all aspects of the game at one point. This point is 
referred to throughout the rest of the thesis as the "hub of 
the wargame." From this hub there are three possibilities: 
the Time Step Module, the Issue Commands Module, and the 


Change Game Initialization Module. 
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If the "Change Game Initialization" option is chosen, 
the program takes the player to many of the same procedures 
that were used in the Pre-Processor Module. The player is 
given the opportunity to change commander’s guidance, add 
nodes and paths, and change some of the game’s parameters. 

If the “Issue Commands" Module is chosen, the player is 
given the option of issuing one of several commands. The 
list of possible commands follows: 

1. Convoy Ammunition Trucks 

2. Dissolve Ammunition Truck Convoy 
3. Move a Unit 

4. Reqvest a Unit Situation Report 
5. Change a Unit’s Firing Rate 


6. Assign Ammunition Resupply Mission 


7. Assign Ammunition Pickup Mission 
8. Issue a Fire Order 
9. Cancel a Command 


In most cases, the result of a command is to add or 
delete one or more events list records. In some cases, it 
involves direct modification of ammunition truck records or 
fire unit records. 

If the time step is chosen, the program will increment 
the game time and then search the events list to retrieve 
any records with an execute time between the last time 
step’s game time and the current game time. As each record 


is retrieved, it is executed based upon the record’s key 
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field. The key field contains the "type action" which took 
place. This "type action" is what determines which 
procedure is’ called. After all applicable events are 
executed, the program enters the Field Trains Processing 
Module, followed by the Ammunition Truck Processing Module, 
then the Fire Unit Processing Module, and finally the 
Generate Messages Module. 

In the Field Trains Processing Module the vulnerability 
level is determined, then the program checks to see if the 
unit receives an enemy artillery attack, and finally, 
casualties are computed. In each of the different type of 
unit modules, the vulnerability level is determined and then 
casualties are assessed based on the linear law form of the 
Lanchester attrition equations. More will be said about the 
assessment of casualties later is this Chapter. 

Additional functions which take place in the Fire Unit 
Processing Module include the firing of ammunition by each 
fire unit, the determination of each unit’s ammunition 
count / status, and the update of such fire unit statistics 
aS availability time and ammunition critically low time. 

In the Ammunition Truck Module, the program conducts the 
actual resupply operations, checks for sufficient crew rest 
to carry on with the mission, assesses casualties, and 
increments the truck’s statistic. The only statistic which 


is tracked is the truck’s casualty time. 
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The last module of the time step is the Generate 
Messages Module. There are two general categories of 
messages, those which are sent to the players by the 
battalion’s subordinate units and those which are sent by 
other elements. The former category of messages is 


generated by checking for various flags in each subordinate 


unit’s records. The later type of message is generated at 
random times throughout game. Examples of this type of 
random message include such messages as the "Bridge 


Destroyed" message and the "Road Mined" message. 


E. PROGRAM ILLUSTRATION 

In order to illustrate how all the different modules 
work together, an ammunition resupply operation will be 
described. It is important to note that an operation of 
this type may be only one of many operations taking place 
concurrently in the game. 

The operation which will be used for the illustration 
involves ordering a convoy of five trucks to move from point 


"A" to point "B" to deliver their loads of ammunition 


Multiple commands must be used to issue this order. First, 
if not already organized. into a comvoy, thew "Conva 
Ammunition Trucks" command must be issued. In order (ox 


this command to be executed, all trucks must be in the same 
location. Next, the "Assign Ammunition Resupply Mission" 
command must be issued. This command modifies all the truck 
records in the convoy to reflect the fact that a mission has 
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been received, and to reflect the fire unit to be resupplied 
and the node in which the resupply is to take place. All 
trucks in the convoy must have full loads of ammunition on 
board in order for this command to be executed. Finally, a 
"Move Unit" command must be issued. In this command, either 
a depart or a occupy time is specified and a route is 
specified in terms of nodes and paths. 

When the "Move Unit" command is entered, a procedure is 
called which builds an itinerary for the unit. It takes 
either the depart time or the occupy time and works either 
forward or backward aS appropriate to determine the 
itinerary. The time required to traverse each path is 
determined based upon the length of the path, whether it is 
day or night, the road conditions, and the type of convoy. 

Using this information, event list records are created 
for the time that the unit departs its current location, the 
time that a unit moves through each node in the route, and 
the time that the unit occupies its new location. During 
each subsequent time step, the events list is checked. For 
each event relating to this move, the convoy’s location is 
changed as well as other fields in the record. Also during 
each time step, the trucks in the convoy have casualties 
assessed based upon the vulnerability level of the path they 
are traversing and whether it is day or night. 

Once the convoy arrives at its destination, each truck 


in the convoy is taken out of a moving status when the 
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occupation event is processed. In all subsequent time 
steps, until the resupply operation takes place, the program 
will check to determine if both the convoy and the unit to 
be resupplied are in the same location. If they are, the 
resupply operation will take place. After the resupply 
operation has taken place, the fire unit’s ammunition count 
is incremented and each truck in the convoy’s ammunition 
count is decremented. At the end of the time step a message 
ls generated from the convoy to the battalion S4 notifying 
him that the mission has been accomplished and requesting 


further orders. 


F. CASUALTIES 

For the purposes of this wargame, it has been assumed 
that the artillery units would not receive any direct fire 
from enemy units. The only types of enemy fires in this 
wargame are from enemy air attack and from enemy artillery 
attack. Both of these types of attacks are produced by area 
fire weapons. Therefore, the Lanchester linear law 
differential model was used to assess casualties. 
Specifically, the following form was used: 


dx = - axy 
ele 


Where "a" is the attrition coefficient, "x" is the numbergor 
friendly elements being attrited, and "y" is the number of 


firing elements. 
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For this wargame casualties are calculated based on 
three different possible unit postures: unit in a position, 
unit in a position and receiving a deliberate artillery 
attack, and unit moving. For each posture there are four 
different attrition coefficients: friendly cannons attacked 
by enemy artillery, friendly cannons attacked by enemy 
bombs, friendly trucks attacked by enemy artillery, and 
friendly trucks attacked by enemy bombs. The underlying 
unit of time for these coefficients is one minute. 

The number of friendly elements being attrited, "x", is 
the percent of each truck which is remaining for ammunition 
trucks. POPs tirimgmeUnits ite is the number of firing 
sections in operating condition. 

The number of enemy firing elements, "y", is considered 
in two parts: enemy air bombs and enemy artillery rounds. 
This variable can be considered to be related to the 
intensity of the attack. For this wargame, the intensity of 
the attack varies according to several factors. Some of 
these factors are listed below: 

mo Day or night 
gee RUraleor urban position 
3. High Medium or low cover and concealment 
4. Acceptable, high, or critical vulnerability level 
5. Maneuver mission offense or defense 
For each type of enemy weapon, air bomb or artillery round, 


the number of attacking elements is determined by summing 
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the number of bombs or rounds contributed by each factor. 
For example, if a fire unit is in an urban position, the 
time is later than end-evening-nautical-twilight (EENT), the 
position has good cover and concealment, the unit’s 
vulnerability level is acceptable, and the supported 
maneuver unit’s mission is offense then the value of "y" is 
determined by summing the number of bombs or the number of 
artillery rounds for those particular factors which are 
applicable to the unit’s situation. 

Next, the casualties assessed against the friendly truck 
or fire unit due to each type of enemy weapons system, air 
bomb or artillery round, are calculated and then summed. 
Once the casualties for one minute are determined, they are 
multiplied by the number of minutes in a time step and then 
assessed by subtracting the determined amount of casualties 
from the truck’s effective percent figure or from the number 
of firing sections in operating condition for fire units. 

By computing casualties in this manner, one procedure is 
used to determine casualties for any given situation by 
passing the appropriate parameters in the procedure call. 
The parameters are the type unit, the unit’s posture, and 


factors which are applicable to the situation at hand. 
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V. PLAYER’S MANUAL 


A. INTRODUCTION 

This chapter is intended to provide a stand alone 
player’s manual for the play of the wargame. For 
information concerning the technical aspects of the code, 
refer to Chapter IV or to the documented source code itself. 
In this chapter, the mechanics of actual game play will be 
discussed. 

The wargame can be thought of as consisting of two 
parts, the computer assisted part and the manual part. In 
the manual portion, players should attempt to operate as 
closely as possible to the way they normally operate during 
combat or simulated combat conditions. The computer 
assisted portion of the game involves a computer program 
which provides the dynamic information which the players use 
to make command and control decisions. The computer 
assisted portion also keeps track of statistics and 
calculates a measure of effectiveness which can be used to 
assess player performance. 

The wargame can be played at any level of intensity. 
That is, the players can play the manual portion of the game 
at a full scale with written orders, staff estimates, and 
detailed planning or they can play it relatively casually by 


just using "judgement" or "best guesses" to make decisions. 


65 


In either case, the computer assisted portion of the game 
remains the same, it simply takes the human input and 
processes it. The point is that the game can be played as a 
part of a full battalion CPX or during weekly officer 
professional development time. This is possible because the 
wargame is designed to be played at the player’s pace. The 
pace is determined by the player by requiring him to 
physically initiate each time step. 

In order to make the wargame easy to learn and remember, 
the wargame was designed to be completely menu driven. 


There are no commands to remember. 


B. MEASURE OF EFFECTIVENESS (MOE) 

It is important to discuss the wargame’s measure of 
effectiveness up front in the player’s manual because it 
tells a lot about what the game’s objectives are and what 
the player’s objectives should be. While playing this game, 
the player should always keep in mind the fact that the 
mission of the wargame is to train officers in the 
integration of tactics and logistics as it relates to the 
command and control of a field artillery battalion. As 
such, the game is oriented toward the integration of tactics 
and logistics and may not do justice to other important 
aspects of a field artillery battalion. 

The player’s objectives should be to play the game by 
taking the same actions they would take in a real situation 
while trying to maximize the game’s MOE. The MOE is 
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calculated based upon statistics which are compiled 
throughout game play. The intent of the MOE is to reinforce 
favorable statistics and to penalize unfavorable statistics. 
In this way, players can judge how effective they were at 
the command and control of the field artillery battalion. 
The statistics which are tracked in the wargame mirror 
the four goals of a field artillery battalion as discussed 
in Chapter II. The actual MOE, called the Field Artillery 
Battalion Command and Control Effectiveness Index, is 


directly related to each one of the goals. The MOE is as 


follows: 
MOE = "tube hours available" ratio - "truck hours lost 
to casualties" ratio = "tube hours above the 
vulnerability threshold" ratio - (.5 * "tube hours 


e@itically short of ammunition" ratio). 
Tube hours lost due to casualties are not explicitly listed 
in the MOE because they are accounted for under availability 
time. Tube hours lost due to ammunition outage are also 
accounted for under availability time. By saccounting for 
ammunition outage under availability time, the players are 
afforded the opportunity to minimize the effect of an 
ammunition zero balance by moving a unit since it can’t 
shoot anyway. In this way, the players can get the unit 
into a better position tactically and set its vulnerability 
level back to zero while out of ammunition rather than 


during a period in which the unit could be shooting. 


67 


C. GETTING STARTED 

To start the computer assisted portion of the wargame, 
the players must first ensure the printer is turned on and 
1s on-line. At the "A:" prompt, type WARGAME and press 
"return." This will take you to the Main Menu. Throughout 
the wargame, the "arrow" keys are used to move the cursor to 
the various choices, the "return" key is used to make a 
selection and the "Fi" key is used to get help. Any data 


fields which require a choice to be made between such 


entries as "high", "medium", or "low" can be entered by just 
typing the first letter of the word, e.g., "h", “See 
"i". At the main menu the player has three options; start a 


new game from the beginning, continue an old game from the 
point where the game was previously quit, or simply to quit 
the game and return to the MS-DOS "A:" prompt. 

Selecting "Continue an Old Game" will take the player 
directly to the game play screen and will pick up with the 
one and only old game which is on file on that particular 
disk. Selecting "Start a New Game" will require the player 
to initialize the game. This can be done by loading a 
scenario file. The "Enter Scenario File Name" screen allows 
the player to do this. Refer to Figure 5.1 at the end of 
the Chapter. When the screen first 1S displayed, the cursor 
is after the "scn" on the directory line. The player has 
two options. He can hit "return" to get a directory listing 


of all the scenario files on the disk or he can press the 
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"escape" key to build a new scenario file. If the "escape" 
key is used, the program will require the player to enter a 
scenario name. A valid scenario file name is "*.SCN." If 
the player chooses the directory listing, then he must place 
the cursor over the file name desired and press "return." 


Either case will lead to the Game Setup Menu. 


D. GAME SETUP MENU 

The purpose of this menu is to allow the players to 
start the game or view, change, or print the game scenario / 
network, the game parameters, the commanders guidance, and 
the battalion configuration / status. All but the "Play 
Game" option will be discussed in this section. The "Play 
Game" option will be discussed in Section E of this chapter. 


It is strongly recommended that players print all of the 


game initialization data before beginning the game. This 
serves two purposes. First, it forces the player to review 
the data to ensure it is correct. Secondly, it gives the 


players a hard copy of the data that can be used throughout 
the game as a reference. All printing is done by pressing 
the "F4" key. This prints the currently displayed screen. 
Throughout the view and change options, use the arrow 
keys to move between fields, use "page up" and "page down" 
to move between pages where applicable, and use the "escape" 


key when finished with an option. 
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1. View or Change Scenario / Network 

This option takes the players to another menu which 
allows them to view, change, or print the administrative 
information contained in the scenario file, the network node 
data, and the network path data. It also allows them to use 
the network utility to test the network. 

The term "network" as used here refers to the unit 
movement network. Unfortunately, all unit movement in this 
game is represented by moving along this network. This will 
require the player to translate from grid coordinates and 
routes on the map to nodes and paths in the unit movement 
network. 

In this network, nodes represent positions, or 
potential positions. Paths represent a route between two 
nodes. The nodes have a specific grid location on the map 
whereas the paths provide connectivity between two nodes. 
There may be two or more paths between the same two nodes. 
The conventional depiction of a network shows the paths 
between nodes as straight lines. For this wargame, it is 
recommended that an overlay be developed which shows all of 
the nodes as circles over their grid locations and all of 
the paths as route traces of the routes represented by each 
path. Each node and path will be labeled with a unique 
name. (Nodes are labeled with up to three numbers and paths 
with up to three letters.) In this way, the players can do 


their normal planning. When they give the movement order to 
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the computer assisted portion of the wargame, they use the 
overlay to dictate the route. (A future version of this 
game should just take the start and end nodes and determine 
the optimal route.) 

Under the node data and path data options, the bulk 
of the network can be setup before the game. However, it 1s 
still possible to add nodes and paths during game play. The 
importance of setting up a good network cannot be over 
emphasized. The larger and more comprehensive the network, 
the more flexible and more realistic the game play will be 
for the players. The entire game 1s structured around the 
movement network. Units occupy nodes and move along paths. 
Point distribution of ammunition must also take place in a 
node. 

The computer assisted portion of the game iS 
interested in more than just location and length information 
for each node and each path. There are many other elements 
of information which are necessary to describe the nodes and 
paths. These will be covered in more detail in paragraphs 
Bb) and c) in this section. 

a. Scenario Information (Figure 5.2) 

This option allows the players to view, change, 
or print the administrative information contained in the 
scenario file. This screen contains the operations order 
number, the date of operations order, the map sheets used in 


the scenario, the game start time, and finally an 


vel 


administrative note to be used at the discretion of the 
scenario builder. 
b. Path Data (Figure 5.3) 

Most of the fields in the path data screen are 
self explanatory. However, a few will require some 
explanation. A path in this game can have no more than one 
bridge. The player will have to pick a bridge if there is 
actually more than one bridge on the map. 

Road conditions and path vulnerability each have three 
levels of quality. It is up to the players to make this 
assessment in accordance with the relative conditions in the 
game’s area of operations. To get the first data screen, 
presse hos, 

c. Node Data (Figure 5.4) 

The node data screen is also fairly self 
explanatory, however, a few items require some discussion. 
A given node must have at least one but no more than six 
paths associated with it. A node can have an ammunition 
count independent of any fire units or ammunition trucks. 
This gives the players the ability to preposition ammunition 
at a node for eventual transfer to a fire unit or ammunition 
truck. The type position and cover and concealment fields 
are like the path vulnerability and road condition fields in 
that the entry is at the discretion of the players but 
should be based upon the relative conditions in the area of 


operations. All of these fields are important to the game 
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because they are some of the previously mentioned factors 
which help to determine the casualty rates. 

ad. Network Utility 

This option has not yet been implemented. It 
will eventually allow the player to test the network by 
tracing routes through the network and determining route 
distances. 

2. View or Change Game Parameters (Figure 5.5) 

This option allows players to view or change the 
game parameters. The game parameters are generally expected 
values of such variables as convoy speeds. These expected 
values can be set by the players to reflect the average 
speeds based on a specific area of operations or opposing 
horce. For example, an area with a good road network will 
have a higher expected value for the convoy speed. The 
actual values used by the game will be based on these 
expected values but will vary according to many factors. 
Examples of some of these factors are the unit’s mission, 
the road conditions on the specific path, the intensity of 
S@enrlict, etc. 

3. View or Change Commander’s Guidance (Figure 5.6) 

This option allows the player to view or change 
elements of commander’s guidance. The commander’s guidance 
data consists of items which could be part of a unit’s 
standard operating procedure (SOP), part of a specific 


operations order, or verbal guidance given by a battalion or 
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division artillery commander for a specific operation. The 
commander’s guidance can also be changed while playing the 
game. 

4. View or Change the Battalion Configuration / status 

This option allows the player to view or change data 
concerning the battalion’s field trains, fire units and 
ammunition trucks. The data concerning these elements is 
the data that will be used to start the game. 

Upon selecting this option, another menu 1S 
displayed. The first choice allows the player to view or 
change the trains location. The second option allows the 
players to view or change the number of fire units, and the 
number of ammunition trucks in the battalion at the 
beginning of the game. The third choice allows the player 
to view or change the starting firing unit data. And the 
last choice allows the player to view or change the starting 
ammunition truck data. 

a. Location of Trains 

This screen contains only the field trains 
location. Note that the correct entry for all locati#en 
fields in this game are in terms of the unit’s position node 
name. 

b. Number of Fire Units / Trucks (Figure 5.7) 

Whatever numbers are entered for the number of 
fire units and the number of ammunition trucks determines 


the number of screens that are created for the next two 
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options. The maximum number of fire units in this game is 
six and the maximum number of ammunition trucks is twenty- 
Our . If there are three fire units currently on disk and 
six is entered for the number of fire units, then the third 
fire unit’s data will be duplicated three more times for the 
additional three fire units. The next option can be used to 
edit the new fire unit records. 
c. Firing Unit Data (Figure 5.8) 

Use the "page-up" and "page-down" key to move 
between the various pages of fire unit data. Most of the 
fields on these screens are self explanatory. However, a 
few require additional explanation. 

The location fields indicate the locations of 
the units at the beginning of the game. These locations are 
in terms of nodes. From a game play perspective, these 
positions can be pre-hostility assembly areas or they can be 
initial firing positions. At the beginning of the game, the 
player will be queried at the start of each time step as to 
whether or not hostilities have commenced. If the answer is 
no, the game continues Fut no casualties are assessed and no 
rounds are fired. If the answer is yes, the game continues 
With firing and casualties and the players will no longer be 
queried about the beginning of hostilities. This procedure 
gives the players the ability to exercise a pre-hostility 


adeployment plan and tactically position their fire units and 
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their ammunition trucks prior to the commencement of 
hostilities. 

The maximum rounds capacity per firing section 
field refers to the number of rounds the particular weapon 
system / organic ammunition carrier can carry combat loaded. 
The number of rounds on hand per fire unit can exceed the 
unit’s total capacity while ina firing position. However, 
when the fire unit displaces, it can only move with its 
Maximum total capacity. The excess rounds will be left as 
prepositioned ammunition on that node. Separate 
arrangements must be made with battalion ammunition trucks 
to transport that ammunition if necessary. 

dad. Ammo Truck Data (Figure 5.9) 

As with the fire unit data, use the "page-up" 

and "page-down" keys to move between screens. All of the 


fields should be self explanatory. 


E. GAME PLAY 

After completing the initialization process, the player 
should select the game play option. This will lead to the 
game play control screen (Figure 5.10) which is the hub of 
the wargame. From this screen the players can initiate time 
steps, issue commands, change parameters, utilize the 
network utility, and they can end the game play by selecting 
the quit option. The game time will always be displayed on 
any screen which is generated out of the game play control 
screen. 
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In order to play the game, the following players are 
required aS a minimum: A battalion commander, a battalion 
O&I section, and a battalion S-4 and / or Service Battery 
Commander. These players are required in order to integrate 
tactical and logistical planning and execution. 

The game is actually played by initiating a time step, 
viewing and / or printing any messages which may be 
generated during the time step, and then issuing any 
commands which may be necessary for the battalion to execute 
its plans. The players themselves should act out their own 
roles as if the wargame were actually a real situation. 
However, rather than sending or receiving information / 
orders using a radio, the players will receive information 
from the computer and will send orders to the units 
represented by the computer. 

The players should conduct all planning in accordance 
with their own unit standard operating procedures and Army 
doctrine. For the computer assisted portion of the game, 
special emphasis should be given to logistics plans since 
the computer will require detailed orders for ammunition 
resupply. Fire plans should also be made either manually or 
uSing TACFIRE. Finally, plans should be made well in 
advance for future fire unit moves so that routes can be 


planned thereby facilitating timely execution. 
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1. Time step 

This option will process all events which take place 
from the current time to the new current time. The 
difference between these times equates to the length of a 
time step. The time step size is set by the players under 
the game parameter option during game setup. A size of 30 
Minutes is recommended. 

There are many functions which take place during the 
time step. The fire units shoot at some rate which is a 
function of the battalion’s CSR but can not exceed the 
weapon system’s sustained rate oof § £ fire. Resupply 
transactions take place between ammunition trucks and fire 
units in accordance with their orders. Ammunition trucks 
return from the ammunition transfer point with new truck 
loads of ammunition but the total ammunition drawn in a day 
can not exceed the battalion’s CSR. Units / trucks move 
around the battlefield in accordance with their orders. 
Units may receive incoming artillery and must request 
permission for an emergency displacement. And finaligg 
units / trucks may receive casualties where the degree of 
casualties is based upon numerous factors such as the type 
position, the position’s cover and concealment, and the 
unit’s vulnerabi /aityetactoms 

Casualties are determined each time step whether the 
units are in a position or are on the move. Casualties are 


assessed as fractional parts of firing sections and 
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ammunition trucks rather than whole sections and trucks. 
This is a result of the fact that Lanchesterian attrition 
was used. Therefore, casualties are determined as an 
expected value over time rather than discrete amounts. Due 
to this fact, it is possible to have less than a whole 
ammunition truck and less than a whole number of firing 
sections ina fire unit. In turn, all quantities which are 
related to these systems are calculated based on the 
effective percent of the system. For example, if a 
particular ammunition truck is at 74 effective percent, then 
it can only haul 74 percent of its full ammunition capacity. 
During the time step, the computer not only executes 
previously issued commands, but also generates messages for 
the players to review and, if necessary, take some action. 
A discussion of each message follows: 
a. Incoming Artillery 
This message notifies the battalion staff that 
the named unit is receiving incoming and that they request 
permission for an emergency displacement. It requires the 
players to make an immediate response of either "y" or "n." 
If "y" is entered, the unit will displace to its alternate 
position within the same node. It will be in a moving 
status for approximately 30 minutes. Upon occupation, its 
vulnerability level will be set back to an acceptable level. 


If "n" is selected, the unit will stay in position and ride 
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the attack out. Casualties will be higher and its 
vulnerability level will continue to increase. 
b. Unit Situation Reports 
These messages will be displayed on a periodic 
basis in accordance with the battalion’s standard operating 
procedure. The situation report frequency can be set using 
the "commander’s guidance"! option under the "Change 
Parameters" option of the Game Play Menu. Use the "page-up" 
and “page-down" keys to move from one unit situation report 
to the next. All fire units and the field trains will be 
displayed. 
c. Bridge Out 
This message will appear randomly. It notifies 
the players that a bridge on a certain path is out. It 1s 
up to the players to avoid the path once this message is 
received. If the players send a unit down a path which has 
a bridge out, then the time the unit spends on the path will 
be greatly increased. 
gd. Minefield 
This message will appear randomly. It notifies 
the players that a minefield has been placed on a certain 
path. It is up to the players to avoid the path once this 
message 1s received. If the players send a unit down a path 
which has a minefield, then the time the unit spends on the 
path will be greatly increased and the casualties will be 


ime@emeased. 
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e. Vulnerability High / Critical 

This message notifies the players that the 
Vulnerability threshold for the named unit has become high 
or critical. To warrant a rating of high, a fire unit must 
exceed the commander’s guidance for either the number of 
rounds fired out of a position or the amount of time spent 
in a position. The rating becomes critical when both items 
of the commander’s guidance has been exceeded. For the 
field trains, the rating is high if too much time is spent 
in the position. And if two times the commander’s guidance 
for time in position is exceeded, the field trains receives 
a vulnerability rating of critical. In either case, the 
expected value for the degree of casualties increases as the 
vulnerability rating increases. 

f. Ammunition Low / Critical / Out 

This message notifies the players, as a real 
fire unit would, when the named fire unit’s ammunition 
levels decreases below certain thresholds. If the 
ammunition count is below 35 percent of the unit’s maximum 
Capacity, then the ammunition status is "low." If the 
ammunition count is below 10 percent of the unit’s maximum 
Capacity, then the status is "critical." And finally, if 
the ammunition count is 0, then the ammunition status is 
Pont." 

There is no penalty for an ammunition status of 


ow . It simply serves as a warning to the S4 to begin 
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planning for ammunition resupply operations to that unit. 
If the status is "critical", then the unit is not considered 
fully available. The amount of time a unit = spends 
critically short of ammunition is incremented and, at the 
end of the game, a portion of the critically short time is 
subtracted from the availability time. Finally, if the unit 
is "out" of ammunition, it is placed in a cold status and is 
therefore not available to support the maneuver forces. The 
"Change Rate of Fire" command can be used to tell a firing 
unit to decrease or increase its rate of fire. 
g. Resupply / Pick-up Complete, Request Orders 

This message is generated when an ammunition 
truck has completed an ammunition resupply or pickup mission 
and needs further guidance. The players then must issue the 
appropriate commands to instruct the truck where to go and 
what to do. In most cases, since the truck can only go to 
the ammunition transfer point from the field trains 
location, the players will issue an order to get the truck 
back to the field trains. Another option would be to 
instruct the truck to go to a specific node to pickigp 
prepositioned ammunition. 

This approach was taken because most ammunition 
trucks / convoys do not have organic radios. In most cases 
they would call the field trains, utilizing the resupplied 
unit’s radio, to give a situation report after accomplishing 


their resupply mission. 
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h. Return from Ammunition Transfer Point, Field 
Trains Gone, Request Orders 


This message iS generated when an ammunition 
truck returns to what was the field trains location and 
finds that the field trains is no longer there. The 
player’s reaction should be to issue orders to the truck 
either to get to the field trains or to go somewhere else to 
deliver the ammunition. 

i. Crew Rest Warning 

This message is generated when an ammunition 
truck iS given a movement order and the truck’s crew has not 
had the amount of rest dictated by the commander’s guidance 
in the last 24 hours. The truck will still accept the 
orders, but the casualty rate will be a little higher. If 
the crew has not had the amount of rest dictated by the 
commander’s guidance in the last 48 hours, then the truck 
Will not be able to accept the orders. This will force the 
battalion’s logistics planners to use all of the trucks 
equally and to consider crew rest in their planning. 

j- Front Line Trace Change 

This message will be generated on a random 
basis. When the maneuver forces are in the offense, the 
front line trace will move some specified distance usually 
towards the enemy in the direction of the attack. When the 
maneuver forces are defending against an enemy attack, the 
front line trace will move some specified distance usually 
toward the friendly forces in the direction of the enemy 
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acrack.. The player’s actions upon receipt of this message 
should be to redraw the front line trace on their maps and 
then check their firing unit’s ranges to determine if they 
need to be moved. 

2. Issue Commands 


This option is chosen to give orders to any of the 


game’s entities, i.e., firing units and / or ammunition 
trucks. Once chosen, the player is taken to another menu 
which lists each of the various types of commands. By 


selecting a command description from this menu, the player 
will be taken to the command screen. Most of the commands 
have a unique command number. It is recommended that the 
"F4" key be used to print the command screen so that the 
players can keep track of the commands given and their 
associated command number. The command number is needed in 
order to cancel a specific command. 
a. Convoy Ammunition Trucks (Figure 5.11) 

This command enables the players to organize the 
ammunition trucks into convoys. The convoy name must be 
unique. Up to 24 trucks can be placed in a convoy but a 
given truck can only be associated with one convoy. 
Furthermore, all trucks named in the command must be at the 
same location when the command is given. If the desired 
trucks are not all at the same location, then the "move" 


command must be used to get them all to the same place. 
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Once a truck is assigned to a convoy, it can 
only receive orders as a part of the convoy. If one of the 
trucks in the convoy can not accept a convoy order due to a 
critical lack of crew. rest, then the truck will 
automatically be taken out of the convoy and will not 
execute the order. 

b. Remove Ammunition Truck Convoy (Figure 5.12) 

This command enables the players to break-up the 
named convoy. All of the trucks in the convoy will be 
disassociated from the convoy and will once again be able to 
receive orders as individual trucks. 

c. Move a Unit (Figure 5.13a and 5.13b) 

This command enables the players to order units 
to move around the battlefield. The players should first 
plan the move on a map of the battlefield. Once they 
determine where they want the unit to move, they should 
refer to the unit movement network overlay to determine if 
the appropriate nodes and paths exist to make the move. If 
they do not exist, the players should use the "change 
parameters" option to add the needed nodes and paths. Once 
this 1s completed or if the nodes and paths already existed, 
then this command screen can be used. All the fields on 
these screens should be self explanatory except the "node to 
resupply" field. If the unit making the move is a firing 
unit or ammo truck/convoy and it is supposed to pick up or 


deliver ammunition along the way, then the players should 
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enter the node where the ammunition resupply is to take 
place. This will cause the fire unit to stop at that node 
to pick Ups ammunition: If the ammunition resupply trucks 
are not there, then the ammunition resupply will not take 
place and the fire unit will continue on its way after one 
time step. 

d. Request Situation Report 

This command is used by the players to get an 
immediate situation report. The output of this command will 
be in the same format as the unit situation report which is 
generated on a periodic basis during the game. The 
situation reports for all units will be displayed. 

e. Change Firing Rate (Figure 5.14) 

This command is used to speed-up or slow-down 
the named fire unit’s rate of fire. The number entered for 
the firing rate is a percent of the battalion’s CSR. If he 
number exceeds 100, then the firing rate will be such that 
the unit, if ina firing status all day, will expend more 
than its "CSR worth" of ammunition. On the other hand, if 
the CSR is less than 100, then less than the "CSR worth" of 
ammunition will be expended. This command is intended to be 
used to manage the unit’s ammunition expenditure. One of 
the statistics reported at the end of the game is the amount 
of ammunition the battalion has on hand in excess of the 
battalion’s CSR. Since the CSR should never be higher than 


what the battalion requested as the required supply rate 
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(RSR), this statistic should be minimized. Therefore, the 
players should use this command both to ensure the fire 
units do not run out of ammunition and to ensure that too 
much ammunition is not on-hand at the end of the game. 

If the firing rate entered is less than 50 
percent of the battalion’s CSR, then the unit will be 
considered less than 100 percent available. The percentage 
of time considered available will be the same percentage as 
the firing rate. 

f. Ammunition Resupply Mission (Figure 5.15) 

This command is used to assign a_e resupply 
mission to an ammunition truck or convoy. Legal entries 
for the "Unit to Resupply" field include any of the fire 
unit names and the word "prepo." By entering preposition, 
the players are telling the trucks to deliver the ammunition 
to a node where the ammunition will be unloaded. The 
players can then use the next command to tell a fire unit to 
pick up the ammunition. 

For any resupply mission to actually take place, 
the trucks must be full and located at the same node as the 
fire unit. If a preposition mission, then the truck must be 
at the node specified in the resupply command. In order to 
get the truck and the fire units into the same location, one 
Or more move command must be used. Therefore, to cause a 
resupply mission to be executed, the players must issue at 


least two commands, a resupply mission command and a move 
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command to the truck / convoy or to the fire unit or to beum 
the fire unit and the truck / convoy. 

It is important to note that since the wargame 
uses Lanchesterian attrition, the trucks are attrited by 
fractions of a truck. Therefore, as the game progresses, 
each truck will have a different effective strength. Since 
a truck can only carry its “effective strength" worth of a 
full truck’s hauling capacity, less rounds than full 
Capacity of a truck will actually be delivered to the fire 
unit or node. This will require the players to keep track 
of each truck’s hauling capacity. This approach may not be 
100 percent realistic but it does account for the expected 
value of casualties over time. 

g. Ammunition Pickup Mission 

Selection of this command will take the players 
to another menu. This menu gives them two options, "Fire 
Units” Omsteinmoe Treuckse 

If "Fire Units" is chosen, the command screen 
(Figure 5.16) is used to tell a fire unit to go to a node to 
pick-up prepositioned ammunition. Like the resupply 
command, this command will require the players to give a 
move command to the fire unit if it is not already in the 
appropriate node. 

If "Ammo Trucks" is chosen, the command screen 
(Figure 5.17) is used to tell an ammunition truck or convoy 


to go to the ammunition transfer point (ATP) to pick-up 
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ammunition. The trucks must be in the field trains location 
to receive this command. This constraint was imposed 
because it was assumed that the trucks would have to at 
least pass through the field trains on the way to the ATP to 
get paperwork, and / or fuel, food, maintenance, and rest. 

The amount of time the trucks take to go to the 
ATP is randomly chosen based on a normal distribution with a 
mean of the "ATP turn-around time" as specified under the 
game parameters. It is important to update the ATP turn- 
around time whenever the field trains moves or the ATP 
moves. Unlike the resupply command and the fire unit pickup 
command, a move command is not necessary with this command. 

The battalion can only pick-up its "CSR worth" 
of ammunition during any given day. Even if the day’s 
allotment of ammunition has already been picked-up from the 
ATP, the wargame will allow the players to send trucks to 
the ATP. However, the trucks will return empty. fThe point 
is that it is up to the players to manage both the pick-up 
and delivery of ammunition. 

h. Issue Fire Order (Figure 5.18) 

This command enables the players to issue 
battalion level fire orders. It can be used to direct the 
fire units to shoot battalion level targets of opportunity 
or planned fires. Planned fires can be planned either 
manually or using TACFIRE to fulfil the requirements of the 


fire support annex of the maneuver unit’s operations order. 
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Once the fire plan is finished, it can be sent to the fire 
units using this command screen. All that is necessary is 
the unit name, time to fire, and the number of volleys. 

The intent of this command is to ensure that the 
S3 players are able to perform all of their responsibilities 
while trying to integrate operations and logistics in the 
command and control of the battalion. They must be careful 
not to shoot so much ammunition that the fire unit’s rate of 
fire must be reduced to too low a level to be considered 100 
percent available. On the other hand, they must conduct 
normal fire planning in support of the maneuver forces. 

i. Cancel Command (Figure 5.19) 

This command enables the players to delete the 
following commands: "Move a Unit", "Ammo Resupply Mission", 
"Ammo Pickup Mission", and "Issue a Fire Order." Each 68 
these command screens has a "command number" field which 
contains a computer generated number. It is this number 
which is entered into the "Cancel Command" screen in order 
to cancel a specific command. For all but the "move" 
command, the command must not have been executed in order 
for the "cancel" command to have any effect. In the case of 
the "move" command, if the move has already begun but is not 
yet completed, the "cancel" command will cause the unit to 
stop at the nearest node. If the unit is a firing unit and 
it has ammunition, it will go into a firing status unlJesomme 


is immediately given another movement order. 
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If a fire unit is on the move, and the players 
want to hip-shoot the fire unit, then they must cancel the 
move command and issue a fire order. If any type unit is on 
the move and the players want to change the route or 
destination, then they must cancel the "move" command and 
then issue a new "move" command from the unit’s new 
Poecation. 

3. Change Parameters 
Selection of this option from the game control 
screen takes the players to more menus which give them the 
ability to change all the entries which were made during 
game setup except for the battalion configuration / status 
records. For example, the time step size can be changed, 
nodes and paths can be added to the network, and the 
Situation report frequency can be changed. The battalion 
configuration records can not be accessed because they 
contain the status of the battalion at the start of the 
game. To give the players the ability to edit these records 
would be the same as giving them the ability to circumvent 
the commands. If the players want to check a units status, 
they can use the "Request a Situation Report" command. 
4. Network Utility 
This option is not yet implemented. he 1s 
envisioned that this option will be used by the players to 
conduct movement planning. This option will eventually be 


Capable of determining the shortest route by time or 


ou 


distance and determining the safest route according to the 
path vulnerability levels. 
5. Output Game Statistics 

This option gives the players the ability to request 
the game’s statistics, MOE, and the number of rounds on-hand 
in excess of the battalion’s CSR at any point during the 
game. It is recommended that this listing be printed at 
least once at the end of every 24 hours of game play. This 
will provide a means of comparing statistics between games 
to judge if the players are improving in their ability to 
command and control the battalion. More will be said on the 
meaning of the statistics in Section F of this chapter. 

Se OUEt 

Upon selecting the "Quit" option, the players are 
given two options. The first option is tosequit waithee 
intention of continuing the game later. This gives them the 
ability to continue the game where they left off at a later 
date. All of the appropriate files are saved to disk and 
are recalled the next time the game is played by selecting 
the "Continue an Old Game" option from the main menu. The 
second choice is to quit the game without the intention of 
ever continuing the game. In this case, the game’s data is 
not saved to disk. 

In either case, the computer will provide a listing 


of the wargame’s statistics, the MOE, and the number of 


2 


rounds remaining in excess of the battalion’s CSR before 


returning to the MS-DOS "A:" prompt. 


F. INTERPRETATION OF THE RESULTS 

The "results" referred to in this section is the listing 
which is printed whenever the "Output Game Statistics" 
option or the "Quit" option is selected from the game play 
control screen (Figure 5.20). The listing itself should be 
self explanatory. It is the interpretation of the listing 
which requires some explanation. 

Each time the listing is obtained, it is based on the 
cumulative statistics from the start of the game to the 
current time rather than since the last time the listing was 
obtained. Since this wargame does not allow replacements of 
casualties, the availability ratio will gradually decrease 
as time goes on due to casualties alone regardless of how 
well the players exercise command and control over the 
battalion. The same is true of the truck casualty ratio 
except that it will gradually increase. Since Lanchesterian 
attrition was used, this amount of change in the statistics 
should be consistent for the same wargame setup data and the 
same C2 decisions at any given amount of time into a 
particular game. Therefore, in order to be able to compare 
the performance between different groups of players playing 
the same game or between the same group of players playing 
the same game at two different times, they must obtain a 
printout of the statistics at the same amount of time into 
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the game during each game. For example, if the players 
request output of the statistics after every 24 hours of 
game play each time they play the game, they will be able to 
compare their performance from game to game. This is 
because the differences in the statistics for the same 
amount of time into each game will be due to command and 
control decisions made by the players. There will be no 
dependence on the amount of casualties which occur based 
simply on the amount of time the game has been played. 

The ratios provide a measure of how well the players 
have performed with respect to the specific statistics 
involved in each ratio. For a better idea of how well the 
players have performed with respect to the overall command 
and control of the battalion, the Field Artillery Battalion 
Command and Control Effectiveness Index is used to determine 
a number which is based on all of the ratios. The number 
itself has no meaning other than as a means of comparing 
performance from one game to the next, assuming the same 
game setup data is used for each game. It can also be used 
to compare performance between two different groups of 
players each playing their own game when each game had the 
Same setup data. 

The final statistic is the number of rounds’ the 
battalion has on-hand in excess of the battalion’s )Gsme 
This statistic first counts all of the ammunition jeaem 


firing unit has and then adds the amount of ammunition the 
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battalion has prepositioned in nodes. Even prepositioned 
ammunition which is currently behind enemy lines is included 
in the count because it is assumed that the loss of 
ammunition was a result of a poor command and control 
decision on the part of the players. The product of the 
battalion’s CSR and the number of tubes in operating 
condition is then subtracted from the total count. The 
player’s objective is to minimize this number. If the 
number is negative, the battalion has less than the CSR on- 
hand. The greater the number, the more rounds the battalion 
has on hand in excess of the CSR. Since it is assumed that 
the RSR equals the CSR in this game, large numbers would 
tend to indicate that the battalion did not properly project 


their required ammunition supply rate. 
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Figure 5.1 Build Scenario Screen 
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The Artillery Wargame | 
Scenario / Network 
OPORD # : 00001 
OPORD Date: 15 0600Z Jan 89 
Map Sheets : Ft Knox 
Game Steam tHmesiDTG) : 17°0530Z Van 89 


Admin Note : 


| |Choose Fi-Help F4-Prn Scr ESC-Done 





Figure 5.2 Scenario Data Screen 


oF 


Artillery Wargame | 
Scenario / Network 


Path Data 
Path Name : AKD 
Length (Kilometers) : 8.6 
Road Condition (Poor/Medium/Good) : M 
Start Node : 425 
End Node : 248 
Bridges on Path (Yes/No) : ¥ 
Bridge Location : 123456 
Vulnerability (High/ Medium/Low) : L 


Page Up - next path Page Down - Prev Path 


| | Choose F1-Help F4-Print F5-Add F6-Del F8-Search 
ESC- Done 





Figure Sra Path Data Screen 
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Artillery Wargame | 


Scenario / Network 
Node Data 


Node Name : 458 
Associated Paths : JHH JHG TRE 

HGF HGF FDS 
Position Type (Rural/Urban) : U 
Location (grid) : 123456 
Prepositioned ammo count (rounds) : 150 
Cover and concealment (High/Medium/Low): M 


Page Up - next path Page Down - Prev Path 


| | Choose Fi-Help F4-Print F5-Add F6-Del F8-Search 
ESC- Done 





Figure 5.4 Node Data Screen 


=) 


The Artillery Wargame | 
Game Parameters 
Time step (minutes) : 30 
Average track convoy speed (kph) : 20 
Average wheel convoy speed (kph) : 25 


Average time from trains to ATP (min) : 55 


| | choose Fi-Help F4-Prn Scrn ESC-Done 





Figure 5.5 Game Parameter Screen 
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The Artillery Wargame ! 


Commander's Guidance 


Unit sitrep frequency (minutes) : 60 
Vulnerability threshold (hours) : 3.0 
Vulnerability threshold (rds / psn): 120 
Ammo truck crew rest (hrs / day): 6.5 
Battalion CSR (rds / tube / day): 110 
BMNT : 05452 
EENT : 1820Z 

Maneuver mission (Offense/Defense) : 0 


| choose Fi-Help F4-Prn Scrn ESC-Done 





Figure 5.6 Commander's Guidance Screen 
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The Artillery Wargame | 


Battalion Configuration / Status 
Number of firing units : 6 
Number of ammo trucks : 24 


| choose Fi-Help F4-Prn Scrn ESC-Done 





Figure 5.7 Bn Configuration / Status Screen 
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The Artillery Wargame | 
Battalion Configuration / Status 
Firing unit data 


Unit name : A 
Number of guns : 8.0 
Location (node) : 458 
Max rounds capacity for firing unit : 1000 
Rounds on hand for firing unit : 500 
Sustained rate of fire (rounds/tube/min): 1.5 


Page Up-next unit Page Down-Prev Unit 


| | choose Fl-Help F4-Prn Scrn ESC-Done 





Figure 5.8 Firing Unit Data Screen 


OS 


The Artillery Wargame | 
Battalion Configuration / Status 
Ammo truck data 
Bumper number : 23 
Location (node) : 458 


Load status (Full / Empty) : F 
Truck capacity (rounds) : 500 


Page Up-next truck Page Down-Prev truck 


| | choose Fi-Help F4-Prn Scrn ESC-Done 





Figure 5.9 Ammo Truck Data Screen 
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DTG : 15 0600Z Jan 89 


Next Time Step 
Issue Command 
Change Parameters 
Network Utility 

Quit Game 


| Choose Select F1- Help 


Figure 5.10 





Game Play Screen 
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DTG : 15 0600Z Jan 89 
Issue Commands 


Convoy Ammo Trucks 


New convoy name : AY1 
Enter bumper numbers for trucks in convoy : 


123 4 5 6 i7 18 19 22 22824 


| | Choose Fi-Help F2-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.11 Create Truck Convoy Screen 
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DTG : 15 0600Z Jan 89 
Issue Commands 


Remove Truck Convoy 


Convoy to be separated : AY! 


| Choose Fi-Help Fe-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.12 Remove Truck Convoy Screen 


OF 


DTG : 15 0600Z Jan 89 
Issue Commands 
Move a Unit 
Command number : 1234 
Start Node : 458 
Along Path: A to Node : 789 


Along Path: 


Choose Fi-Help F2-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.13qQ Move a Unit Screen (Part 1) 


DTG : 15 0600Z Jan 89 
Issue Commands 
Move a Unit 
Command number : 1234 

Enter movement information: 
Unit fo move: A 
Time for movement : 15 100Z FEB 89 
ls this oc departure or arival time (D/ A): D 


Node to resupply at : COptional) 


| Choose Fi-Help Fe-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.13b Move a Unit Screen (Part 2) 
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DTG : 15 0600Z Jan 89 


Issue Commands 


Change Unit Firing Rate 


Unit to change : A 


Firing rate (% CSR) : 100 


Choose Fi-Help Fe-Execute Cmd _ F4-Print 
ESC- Abort 





Figure 5.14 Change Unit Firing Rate Screen 
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DTG : 15 0600Z Jan 89 
Issue Commands 


Ammunition Resupply 


Ammo truck bumper # or Convoy name: AY! 


Unit or node to resupply : A 


| | Choose Fi-Help F2-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.15 Ammo Resupply Mission Screen 


seat aL 


DTG : 15 0600Z Jan 89 
Issue Commands 


FRre Unit Ammunition Pickup 


Fire Unit to Pickup Ammo: A 


Location of Ammo : 458 


| | choose Fi-Help Fe-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.16 Ammo Pickup Mission Screen 


La 


DTG : 15 0600Z Jan 89 
Issue Commands 


Ammunition Pickup 


Command number : 1237 
Ammo truck or convoy to pickup ammo 24 
Departure time : 15 0800Z Jan 89 


Pickup Location (ATP or node) : ATP 


| | choose Fi-Help F2e-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.17 Ammo Truck / Convoy Pickup Screen 


ie 


DTG : 15 0600Z Jan 89 
Issue Commands 
Fire Order 
Command number : 1238 
Unit to fire: B 
Time to fire : 15 0900Z Jan 89 


Number of volleys : 2 


| | choose Fi-Help Fe-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.18 Fire Order Screen 
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DTG : 15 0600Z Jan 89 


Issue Commands 
Cancel Command 
Number of command to cancel: 1237 


| | Choose F1-Help F2-Execute Cmd F4-Print 
ESC- Abort 





Figure 5.19 Cancel Command Screen 


STATISTICS / MOE DATA 


Total time firing sections were available (hrs): 7589 
Max. possible available time : 9255) 


Availabity Ratio: .82 


Total Time firing sections critically short ammo: 98.2 
Max possible critica] short time : 9255 


Critically Short Ratio: 0.0106 


Total Time firing sections at critica] vulnerability : 211 
Max possible critica] vulnerability time : 9255 


Critical Vulnerability Ratio : 0.0227 


Total time lost due to truck casualties (hrs): 985.2 
Max possible casualty time (hrs) : 9255 


Truck Casualty Ratio: 0.106 


Field Artillery Battalion Command and Control 
Effectivenes Index : 0.687 


Number of rounds on hand at end of game in 
excess of battalion CSR: 852 





Figure 5.20 Statistics / MOE Printout 
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VI. SUGGESTED ENHANCEMENTS AND POTENTIAL USES 


A. INTRODUCTION 

The primary objective of this wargame has been achieved; 
to provide a tool for training officers in the integration 
of tactics and logistics as it relates to the command and 
control of a field artillery battalion. As with any 
undertaking of this kind, there is still plenty of room for 
improvements which would enhance the wargame’s effectiveness 
in training these officers. In spite of the need for 
improvement, the wargame, as it currently exists, is still 


very useful. 


B. POTENTIAL WARGAME USES 

It is very important to note, before discussing any of 
the wargame’s uses, that this game is not to be used as a 
tool to validate a unit’s war plans. This point cannot be 
emphasized enough. The game, while it was intended to be as 
realistic as possible, does not claim to accurately model 
Casualty rates. It iS primarily for this reason that the 
Wargame should not be used to validate a unit’s war plans. 

It is possible, however, to use the wargame as a tool to 
develop familiarity with a unit’s area of operations and its 
plans. By loading a unit movement network for a unit’s area 
of operations, the unit’s configuration into the battalion 


configuration file, the commander’s guidance into’ the 


Ay 


commander’s guidance file, and SOP / operations order items 
into the game parameter file, the players can exercise and 
become familiar with the unit’s general defense plans. Pre- 
hostility deployment plans, to include occupation of 
assembly areas followed by occupation of initial positions 
and pickup and delivery of the unit’s basic load of 
ammunition can easily be practiced. Just as easily, the 
unit’s post hostility plans can also be practiced. This 
type of training, using the unit’s actual wartime area of 
operations and battalion configuration, can pay great 
dividends if the plans are ever called upon to be used in 
time of war. 

One of the strengths of the wargame is the ability for 
the computer assisted portion of the game to be integrated 
into any level of CPX. For example, the game can be played 
aS a part of a battalion’s weekly officer professional 
development time, in conjunction with a battalion level CPx, 
or it can be integrated into a full scale, higher level, 
CPX. In every case, the utility of the game is that it 
allows the players to fully integrate tactical decisions 
with the logistics considerations. Additionally, it 
measures their performance using the Field Artillery 
Battalion Command and Control Effectiveness Index. By 
providing this feedback, the players can assess their 
decisions, and perhaps vary their method of command and 


control in order to maximize howitzer availability time, 
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minimize casualty time, vulnerability time, and time spent 
critically short of ammunition. 

Another training strategy is to play the’ game 
competitively. For example, at the division artillery 
level, the game’s setup files can be established so that 
they are the same for each battalion. Then, each battalion 
can play the game for a specified period of game time. At 
the end of the game, the game’s statistics are assessed to 
determine which battalion more effectively command and 
controlled the wargame’s units. A similar technique can be 
used for training within a battalion by playing the game 
competitively between the battalion’s day and night shift 
personnel. 

Finally, the game can be used by a battalion to study 
the effect on their tactics of increasing enemy lethality. 
By changing the value of "a" in the Lanchester equations 
found in the source code, the casualty rates can be changed. 
For each level of casualty rates, a set of tactics can be 
developed to more effectively command and control the 
battalion. The types of things which can be varied within 
the set of tactics include the size of ammunition convoys, 
the frequency and distance of moving firing units, the rate 
@meriring for fire units, the use of point or unit 
distribution for ammunition resupply, the types of positions 


which are occupied (rural or urban), and the positioning of 
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the field trains in relation to the fire units ana ~oee 


ammunition transfer point. 


C. IMPROVEMENTS / ENHANCEMENTS 


The wargame, as it currently exists, is fubiy 
functional. However, there are some areas which can be 
expanded in order to make the wargame more useful. The 


enhancements described in the following paragraphs are 
listed in order of priority from highest to lowest. 
1. Different Ammunition Types 

Currently, the wargame allows the players to manage 
ammunition of only one type. While there are many things 
that can be learned about the integration of tactics and 
logistics when only uSing one ammunition type, the issues 
become much more complex when the myriad of possible 
ammunition types are included in the game. It is not only a 
logistics management problem, but also it has a profound 
impact on tactical plananance 

In order to implement this enhancement, the fire 
unit, truck, and node records all will have to be modified 
Eo include each of the various ammunition types. 
Additionally, everywhere in the time step that ammunition is 
either transferred or expended, it must be done for each 
ammunition type. Finally, new criteria must be used to 
determine what constitutes low or critical ammunition 


levels. 


1Z6 


2. Explicitly Play FLOT / Ranges 

Currently, there is no cartesian coordinate system 
implemented within the wargame. This would not be difficult 
to implement and would enable certain useful functions. For 
example, it would enable the howitzer’s range to be played. 
Currently, it is up to the players to check the unit’s range 
fan against the battlefield geometry to determine if the 
unit needs to move due to range considerations. If the 
cartesian coordinate system were implemented, this would 
enable the computer to also check the range. If the players 
failed to move the unit as the FLOT moved out of range, then 
the unit would no longer be considered available. Other 
functions would be enabled as well by implementing this 
enhancement, range checks could be made for fire missions, 
Mat jpositions could be overrun by the  £FLOT, and 
prepositioned ammunition could also be overrun by the FLOT. 

In order to implement this enhancement, the node 
records need to be modified to include an X and Y coordinate 
mem the UTM grid location of the node. Additionally, a 
record needs to be created for the coordinates of the FLOT, 
and procedures need to be written to calculate the distance 
between two points and to determine if a point lies above, 
mouow, left, or right of a line. 

3. Requests for Fires 
The way the wargame is now written, the players can 


fire a fire mission but the target is not explicitly named. 
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It is up to the players to ensure the target is within range 
before firing: Furthermore, the only impetus for firing 
comes from the players themselves, either to fire a fire 
plan directed by the operations order or to fire targets of 
opportunity generated by the players themselves. Since the 
players are assumed to be the battalion staff, the only 
types of fire missions which are played are battalion level 
missions or battery missions which are originated at the 
battalion level. All other firing is done by establishing a 
firing rate in terms of the CSR in order to expend the 
ammunition. 

The first problem can be resolved by implementing 
the cartesian coordinate system. The second problem can be 
resolved by randomly generating requests for fires on 
randomly generated coordinates located on the far side of 
Che wer Lor. This process can be written to simulate 
FIREFINDER radar output or target lists from the divileaem 
artillery target intelligence files. In either case; re 
would be up to the players to decide which targets to 
engage, which fire units to use, and with which ammunition 
types. 

4. Play Fuel 

Fuel was not played in this version of the wargame 

because fuel is already played in real training through 


actual consumption. Nevertheless, fuel is a very important 
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consideration in the integration of tactics and logistics. 
As such, it Should be added to the wargame. 

In order to implement this improvement, a similar 
approach to the one used for the ammunition resupply can be 
used. Rather than rounds of ammunition, resupply will be in 
gallons of fuel. Rather than a firing rate, consumption 
will be in terms of a rate based upon the unit’s posture, 
e.g. in position or moving. Like the ammunition trucks, 
fuel can be delivered by the combination of a movement 
command to the trucks or fire units and a resupply mission 
command. 

Implementation of this command will ensure that the 
players do not move the units so much that they run out of 
fuel. It also forces them to plan for fuel resupply using 
either unit or point distribution thereby integrating the 
requirement fOr fuel into the battalion’s overall 
operational plan. 

5. Play Maintenance 

Like fuel, maintenance was not included in the first 
version of the wargame because it is regularly practiced in 
real training. It is, however, a real problem and therefore 
should be included in future versions of the game. 

It can be implemented by forcing a certain amount of 
"down" time or maintenance time for every kilometer traveled 
by the battalion’s vehicles. This "down" time would then be 


subtracted from a fire unit’s availability time. For 


teas 


ammunition trucks the "down" time could be handled similarly 
to the way that crew rest requirements are currently 
handled. In short, the truck would not be available for 
ammunition resupply missions while in a "down" status. 
6. Network Utility 

The network utility was assigned the lowest priority 
because it provides a service which is normally done 
manually by the players and it may be construed as 
detracting from the player’s training. The network uti 
is intended to determine the shortest route (time or 
distance) between two nodes in the unit movement network or 
determine the safest route in terms of vulnerability 
factors. It can be used as a staff planning aid in 
determining unit movement routes or it can be used to 
automate the movement orders by allowing the players to 
specify that a move between two nodes be done using the 
Shortest or safest route. 

The node and path records needed for this 
enhancement are already in place. All that is needed are 
procedures containing the appropriate algorithms to 


implement the functions. 


D. FINAL COMMENTS 

At the very least, this wargame can serve as a working 
prototype for a wargame to train officers in the integration 
of tactics and logistics as related to the command and 
control of a field artillery battalion. The word “workings 
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is emphasized because this wargame, as CuUrrencly 
implemented, is fully operational and is capable of use by 
units in the field. The wargame’s greatest strengths are 
that is requires very little training on the use of the 
wargame itself, it can be played on an IBM compatible 
personal computer, it uses the Field Artillery Battalion 
Command and Control Effectiveness Index to provide feedback, 
and it forces the players to consider aspects of field 
artillery battalion command and control which are very 
@ifficult if not impossible to practice through actual 
training. 

Finally, it should be pointed out that this wargame was 
originally conceived to satisfy a perceived deficiency in 
training which is common to all units that require large 
quantities of bulk supplies, such as ammunition, to sustain 
them in combat. The point is that this wargame, with 
relatively minor changes, could be used for air defense 
meemelery units, armor units, and infantry units. In short, 
the concept can be expanded into a whole class of wargames 
which can be used by battalion level officers for training 


in the integration of tactics and logistics. 
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APPENDI£ 


DOCUMENTED SOURCE CODE 


(KEK KKKKKKKK KKK KKK KKKKKKKKKKKKKKKEKKEKEKEKKKEKKEKKEE ) 


{ 
Program name : WARGAME 


Purpose : this program is a computer assisted 
wargame designed to exercise the command and 
control functions in a flieldvareuien, 
battalion as they relate to the integration 
of tactics and logistics. 

Written by : Anthony R. Ferrara 

Michael W. Schneider 

Program completed : 23 March 1989 

Language used : Turbo Pascal 5.0 

System : IBM Personal System II Model 50 
running "OOS seo 

Environment required : IBM compatible system 
With Golor monmmeonr. 


Program structure 
this program makes extensive use of the unit 
structure defined by Turbo pascal. All of 
the procedures, functions, and variables of 
the program are contained in the units that 
are part of this program. 


Units 

GLOBAL - this unit contains the declarations 
for all of the files, records and variables 
used for the game itself. 

GAME - this is the unit responsible for the 
overall control of the game: its 
initialization, modification of parameters, 
execution of the game, and issuing of 
commands. 

INIT - contains the procedures that initial- 
1ze the game and allow the user to change 
any of the games parameters. 

SCENARIO - contains the procedures that 
initialize, modify, and create the scenario 
for the game. 

TIMESTEP - this unit contains the procedures 
that comprise the "heart" of the game, it 
actually executes each time step and 
processes the event records for the game. 

COMMANDS - this unit contains the procedures 
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that allow the user to issue commands that 
allow the command and control of an 
artillery battalion to take place. 

GAMEUTIL - this unit contains a number of 
general purpose utility procedures and 
functions that are used by more than one 
unit and are specific to the game. 

UTILITY - this unit contains a library of 
general purpose procedures that are 
specifically for the generation of the user 
interface, both input and output. 

TACCESS - this a Borland written unit that 
contains a number of low level procedures 
that provide database related functions 
used throughout the game. 

TAHIGH - this a Borland written unit that 
contains a number of high level procedures 
that provide database related functions 
used throughout the game. 


(RAAKKKKKKKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKKKK KKK KKK ) 


program wargame; 
($m 65520,0, 655360) 


uses crt, utility, game; 
Var choice : integer; 
begin 


initialize screen; 
remove cursor; 


repeat 
center text (1, ’The Artillery Wargame !’, blue); 
choice := menu_selection ( ’Main Menu’, 


‘Start a new game|Continue an 
old game|Quit\’ ); 
case choice of 
1 : play _new_game; 
2 : play_old_ game 
end 
Matat choice = 3; 
meecOre Cursor; 
initialize screen 
eric . 


2 
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(A AKKKKAKKEKEKKEK KEK KKK EKER KKEKKKKKKKKEKKKKKKKKKKEKEEE ) 


{ 
Unit name : GLOBAL 


Purpose : this unit contains all of the declara- 
tions necessary for the game itself. It con- 
tains declarations for all of the files used 
to save the game variables from game to game 
on disk. It also contains default values for 
records wherever they were possible. The 
specific purpose of each variable is clearly 
indicated by its name. 


(RAK KAKA K RIK KAKI KEK KK KIKI K EKER EK EK KEKEK ES ) 
unit global; 


interface 


uses dos, utility, taccess, tahigh; 


const 

scenario file header = ’This is a valid wargame scenario 
file. 

max firing unves, =nc- 

max_ammo_ trucks = 24; 

trains filename = ‘trains.dat’; 

firing unit filename = ‘fireunit. dacs, 


ammo truck filename 


cdrs_ guidance filename ‘cdrgquide. data 


f 
‘aMmmotrckK.aact = 
f 
f 


game parameter filename 


‘gamparam.dat’; 


node data filename ext ae. Sone 
path data filename ext — 2 SCZ, 
node_index_filename_ ext = / (see 
path_index filename ext = sea”, 
event_data_filename = '‘evntSlst. dats 
event_time_index filename = ‘evntslst. ise 
event_serial_ index filename = ’evnt$lst.1ix2’; 
message data_filename = ‘msg$list.dat’; 
message type index filename = ’msg$list.idx’; 
{Sl "qlebal typ 
type 
firing_unit_record = record 
record status longint; 
firing unit name strings, 
number _of guns : integer; 
liecataem St ramgee- 
section max rounds capacity > integer; 
rounds_on_hand : integer; 
sustained rate of fire > integer; 
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time _ in position oie ent ; 


rounds fired from_position integer; 
vulnerability status ; char; 
firing status Clic’, 
ammo status > char; 
support mission Po sisnatlo le (Sy 
rate percent_csr > real; 
ammo pickup mission : boolean; 
ammo pickup_location cer ing 1 0; 
traverse minefield : boolean; 
minefield location eStaIngl © - 
pending_movement : boolean; 
ammo _ low > boolean; 
ammo critical : boolean; 
ammo _out >: boolean; 
vulnerability high : boolean; 
Vulnerability crirtreal : boolean; 


sections in operating condition : real; 


total availability time aerongint, 
critically short time Serongint 
critically vulnerable time Lone & 
ema ; 

ammo truck record = record 
record status 3 Wongint; 
bumper number eS ear rig 5 ; 
location west eingiO; 
load_status Sa CHdEr ; 
ammo capacity >: integer; 
convoy_name wecteG PGS, 
mission _ assigned ; *ehar; 
moving : boolean; 
mening Unit to resupply : string5; 
node to resupply seringS; 
vulnerability status caecivais: 
amount_of rest romain ; 
time since rest began ongint; 
traverse minefield : boolean; 
minefield location 7 SEP Ingo; 
pending_movement : boolean; 
effective percent > real; 
killed : boolean; 
casualty time 5 Le@halsjaligh= 
end; 


battalion trains record = record 


record status welong ine ; 
focation SEL mc LO; 
moving : boolean; 
pending movement : boolean; 
time_in position eelong ints: 
vulnerability status gchar; 

vulnerability high : boolean; 
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vulnerability critical : boolean 
end; 
cdr_guidance_record = record 


record status : longanne: 
unit _sitrep frequency ; integers 
vulnerability threshold_time >: real; 
vulnerability threshold_rounds : integer; 
crew _rest_per day ; neal; 
bn_csr > integer; 
bmnt ; stmang5s; 
eent ; Stands: 
maneuver mission ; Chaaay 
axis : integer 
end; 
game_param record = record 
record status ; longing: 
time step size : integer; 
avg_ track convoy speed : integer; 
avg _ wheel convoy speed : integer; 
avg time trains to atp : integer 
end; 
scenario _ info record = record 
record status : longint; 
opord number : sSienang Le; 
opord date {Strang 5; 
map sheets : Sie imgs 0 > 
Stanemard 5 Stiginig i o:, 
admin notes s,array [1..10] of ~strmmmqed 
end; 
nede record — recerd 
record status Seong antes 
node name ; Strings. 
paths >: array [1..6] of strange, 
Grid Se engdO. 
position type sechan; 
cover concealment : char; 
ammo count : integer 
end; 
path_record = record 
record status —2) longi. 
path_name | Staines, 
start node : Strang 5, 
end node : Strings; 
length >: real; 
road condition : ‘eliciaes: 
bridge : char; 
bridge grid : String 20. 
vulnerability : char 
end; 
event s5eComd = srece ma 
record status : lengimir, 
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event _ type | chal, 
serial number : integer; 
time key : stringl0; 
unit type wechar, 
unit name ; Strimgo; 
volleys : integer; 
Grid * Stringed; 
node westring5s; 
path : string5 
end; 


message record = record 


record status : longint; 
message type : char; 
unit type : Yehalies 
unit name : string5S; 
location > Ste iigwoy 
ammo status : Ghar; 
vVunerabilitye: char 
end; } 

stat record = record 
availability 


max availability : 
availability ratio : 
ammo short time : 
max _ammo_short_ time : 
ammo short time_ratio 
vulnerability 
maxX vulnerability 
vulnerability ratio 
truck casualties 
max truck casualties 
truck casualties ratio 
moe : 
rounds _on_hand : 
total guns _at_ start : 
end; 
firing unit array = array 
mering Unit record; 
ammo _truck_array = array 
ammo truck record; 


var 
game stats : stat _record; 
scenario file name strings 07 
scenario file > text; 
node data filename ; string80; 
path data filename : string8s0; 
node_index_filename : string80; 
path_index filename : string80; 
trains file tlle ore battalieon trains record; 
meeeunit file ; file of firing unit record; 


PS 


real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
real; 
integer; 
integer 


Pees Nanaia noma cS | 


[1..max_ammo_trucks] 


of 


of 


ammotrck_file : file of ammo _truck_record; 
cdrguide_file : file of cdr guidance _ record; 
gamparam file : file of game_param_ record; 


number of firing_units : integer; 

number of ammo trucks integer; 

firingeunie.s firing_unit array; 

ammo trucks ammo truck_array; 
battalion _trains battalion_trains record; 
commanders guidance cdr_guidance_record; 


game_parameters >: game_param_ record; 
scenario info > scenario_info_ record; 
nodes >: dataset; 

paths : dataset; 

event list : dataféadle; 

time index : indextaidie- 

serial number_index : indexfile; 

messages : datafile; 

message type index >: indexfile; 


game_ start_time : datetime; 


game start dtg |: strimgie, 
game time : datetime; 
game dtg : stringl15; 


total game time : longint; 
new day : boolean; 
day time : boolean; 


time since last _sitrep : integer; 

atp_ rounds _on_hand : integer; 

hostilities started : boolean; 

command serial number : integer; 

Cenc 
default_firing_unit_data 9; firing unitereceqd 
= ( record status sg 0% 
firing _unit_name 
nud) Stine 

number of guns we Be 
location : ’ ie 
section_max_rounds capacity :) 2507 
rounds _on_hand : SO0r 
Sustained rate of fire ets 
time_in_position > 0; 
rounds fired from_position SAEOr 
vulnerability status s  ) Ree 
firing status : Te; 
ammo status : “See; 
Support mission : FADS’; 
rate percent csr > 1.0; 
ammo pickup mission : false; 


Ea 


ammo pickup location 
nud) string; 
traverse minefield 
minefield location 
null string; 

pending_movement 
ammo_low 
ammo critical 
ammo_out 
vulnerability high 
vulnerability critical 
sections in operating_cond 
total availability _time 
critically short _time 
critically vulnerable time 
); 

default _ammo truck_data : ammo _t 

= ( record status : 

bumper number 
location 
load_status 
ammo capacity 
convoy _name 
mission assigned 
moving 
firing_unit to resupply 
node _to_ resupply 
vulnerability status 
amount_of rest 
time since rest began 
traverse minefield 
minefield location 
pending movement 
effective percent 
killed 
casualty time 


ition : 


EUGIeEeCcOord 
O; 

nu eoter ine,; 
leas 

as 

300; 

Flees eel Gy; 
aN 8 

false; 
nulls G1 mG: 
null string; 
‘Al? 

O; 

0; 

false; 

null string; 
false; 

vO} 

false; 

0 


false; 


false; 
false; 
false; 
false; 
false; 
false; 
8.0; 
0; 

O; 

0 


default_battalion_trains : battalion_trains_record 


= ( record_status : O; 
location a tS 
moving : false; 
pending_movement : false; 
time in position On 
vulnerability status a A; 
vulnerability high : false; 
vulnerability critical : false 


)3 


default_commanders_ guidance : cdr_guidance_record 


= { record status O; 
unit_sitrep frequency ; 60; 
vulnerability threshold time een 5; 


133 


vulnerability threshold moun@s = 200; 
crew_rest_per day : 765; 
ishe ese > 100; 
bmnt > “OS4a7""; 
echis ; ‘182 02m, 
maneuver_mission : 4"; 
axis : 090 


7 
default _game_parameters 
( record_status 
time step size 


avg_track_convoy_ 
avg wheel convoy __ 
avg _time_trains_to_atp 


ar 


Gefault scenario info 


game_param_ record 


7 oUG 
speed Seeeio 
speed oo 

: 180 


scenario: Info record 


= ( record status 0; 
opord_ number : “OOO; 
opord_ date 5 ae 
map sheets >: ‘None applicable’; 
Sta@eaGeg 715 06002 NOW Soe, 


admin_notes 


)i 
default_node 
( record status 

node_ name 
paths 
nuligstring, 


null string), 
Gre 
position type 
cover concealment 
ammo count 
)i 
aefaulser para 
( record status 
path_name 
start _node 


— 
— 


( , tone sf Tue 
t t ; ’ 

, 8 sof sf 
! ’ t 


node_record 


O; 
null Jstiwie. 
(null _ string, null straiee 


null sting, null strimes 
null striae: 

i Ree 

“Mo 

O 


path record 


O; 
null string# 
null string; 


end_node semull Strings 
length cOs 
road Cond? t 1 Onmama a 
bridge coo Nee 
bridge grid 2 null stiame- 
vulnerability : ’M’ 
i 
default_scenario_file_ name string80 = 
‘new$scen.scn’; 
default_number of firing_units integer = 6; 
default_number_of_ammo_trucks : integer = 24; 
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oS 





(KAKKKKKKEKKKKEKKKEEKKKKKEKKKEKKEKKKEKKKKKEKKKEKEKEKKES ) 


Unit name : GAME 


Purpose : this unit contains the procedures that 
actually comprise the heart of the wargame. 
It is responsible for initializing either a 
new or old game, running the game, and taking 
care of the functions necessary when quitting. 
As part of the game itself it also controls 
execution of the time step, the issuing of 
commands, and the changing of allowable game 
parameters for the execution of the game. 
This unit can be thought of as having four 
subordinate units that contains the procedures 
that carry out its functions. These are INIT, 
SCENARIO, TIMESTEP, and COMMANDS. 

} 


(AA KKKKEKEKKKEEKEKEKERKEKKEEKKERKEERKERKEEKRKEEKKEEKEKEKE ) 
unit game; 


interface 


at 


uses crt, printer, utility, gameutil, global, init, 
scenario, timestep, commands, taccess, tahigh; 


procedure play new _ game; 
procedure play old game; 


implementation 
(RR AKKKKKKEKK KKK KK KKK KKK KK KKEKEEKEKEKKKKKKKKKKKE KS ) 


{ 
Procedure name : PLAY WARGAME 


Purpose : this procedure controls the play of 
wargame once it has been initialized as 
either a new or old game, as appropriate. 
It displays the game screen, and provides the 
game menu. It relies on four units: INIT, 
SCENARIO, TIMESTEP, and COMMANDS. These are 
called as is necessary to handle the selection 
made from the game menu by the player. 


Parameters : none. 


Called by : PLAY NEW GAME 
PLAY OLD GAME 


(RAK KARR KK KARE RK KKK KK KKKKEKKKKKKKEEKKKKEKKKK KKK KKK ) 
procedure play wargame; 


136 


var 
choice : integer; 


(ERK KKKKKKKKKKKKKEKE KEKE KKK KKK KK KKEKEKEREKEKKKE ) 


{ 
Procedure name : DISPLAY GAME MAIN SCREEN 


Purpose : this procedure displays the current 
game time in large block letters at the top 
of the screen and the current dtg in normal 
size characters on the top line of the screen. 


Parameters : none. 


Called by : PLAY _WARGAME 
EXECUTE _NEXT_TIME_ STEP 


(AKKKKKKKKKKKKKKKKEKKKKKEKKKEKRKKEKEKKKKEKKKKKKKKKKEE ) 
procedure display game main screen; 


var 
@tq : stringl5; 


begin 

initialize screen; 

dtg := remove blanks (game_dtg); 

Seemeronce String” (17, 3, copy (dtg, 3, 4) + blank + copy 
oaea, 7, 1), cyan); 

Memmeer cCext (1, ‘DTG : ‘’+ game dtg, yellow) 

end; 


procedure execute_next time step; 
begin 


inc_time (game_time, game parameters.time step size); 
datetime_ to _dtg (game ne game_dtg) ; 


total game time : total game time a 
game_parameters. Be oneee een 
new_ day := ((game_time.hour * 60) + game time.min) < 


game_parameters.time_step size; 
Meeermine day or night; 
display _game_main_ screen; 
process events list; 
stock_atp; 
process field trains; 
process _ ammo trucks; 
process fire units; 
generate messages 
end; 
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(KAA KKKKKKKKKKKEKEKKEKKKKKKKKKKKKKKKEKREKKKKKKKEKEKE ) 


{ 
Procedure name : ISSUE_COMMAND 


Purpose : this procedure presents the command 
menu to the player. It is responsible for 
calling the appropriate procedure to handle 
the command selected by the user. 


Parameters : none. 


Called by : PLAY _WARGAME 


(KAKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKKKKKEKKKKEKKKS ) 
procedure issue_command; 


trues 


truek 


‘Move a unit|/+ 
‘Request sitrep| ‘+ 


firings 


fire 


‘Cancel command| ‘+ 


resupply 


resupply 


ammo 


‘Cancel fire Uneee 


ammo 


TO 


menu_yl_ default; 


begin 
Clear area Wd) 2,80, 255 
draw_window Clee S02 37 menu_forecolor, menu_backcolor, 
‘Issue Commands’); 
repeat 
menu_xXl := 12; menu_yl := 5; 
menu_xz := 68; menu_y2 := 19; 
choice = menu_selection (null_string, ‘Create 
convoy | /+ 
“Revove 
Convo, 
‘Change 
rate| ‘+ 
‘Issue 
order | ’+ 
‘Ammo 
mission| ’+ 
‘Cancel 
mission| ’+ 
‘Fire 
pickup| ’+ 
pilekup i: 
‘Ammo truck 
PLckup =: 
“RETURN 
GAME\’); 
menu_xl := menu_xl_ default; menugyie— 
menu_x2 := menu_xXx2.default; menue ze 


case choice of 
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menu_y2 default; 


wee reaceeemuck Convoy; 

: remove_truck_convoy; 

: move_unit; 

: display_sitrep; 

: change_firing_rate; 

; issue _fire_order; 

: cancel command; 

: ammo resupply mission; 

cancel resupply_mission; 
10 : fire _unit_ammo_pickup; 
11 : cancel fire _unit_pickup; 
12 : ammo_truck_ammo_pickup 

end 

until choice = 13; 

initialize _ screen 

end; 


WOMAN AUP WHE 


(HAKKAR KKEKKKERKRKE KEK EKER EREEKEKEEKREREKEKKKKKKKKKS ) 


{ 
Procedure name : CHANGE PARAMETERS 


Purpose : this procedure presents the menu for 
allowing the player to change the commander’s 
guidance, the game parameters, modify the 
network, or access the network utility. 


Parameters : none. 


Called by : PLAY WARGAME 


(RAKKKRKEKEKKEKKKEKEKEKKRKEKEKKEKEKKEKEKKEKEKKEKKEKKEKEKKEKEEKS ) 
procedure change parameters; 


var 
choice : integer; 


begin 
Meat area (1,2,80,25); 
repeat 
choice := menu_selection (’Scenario / Parameter Menu’, 


‘View or change scenario / 
network | ‘+ 
‘View or change game 
parameters | /+ 
‘View or change commander’’s 
guidance | ’+ 
‘Return to game\’); 
Gase choice of 
1 : view_scenario; 
2 : view _game_parameters; 
3 : view_commanders guidance 
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end 


until choice. — 14. 
initialize screen 
end; 


(KKK KKKKKKKEKKKEKKEKKKKEKKKEKKKKKKKEKKKKKKKKKKKKKKKES) 


{ 
Procedure name : QUIT GAME 


Purpose : this procedure handles the actions 
neccessary for quitting the game. It presents 
the player with the option to save the game in 
progress or abandon it. It then calculates 
and outputs the statistics for the game. 


Parameters : none. 


Called by : PLAY WARGAME 


(RRR KK KKKEKKKEKKKKKKEKKEKKEKKKEKKKKEKKKEKKEKKKKKKKKKKKS ) 
procedure quit game; 


var 
choice : integer; 


(Ae aR aKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : SAVE GAME 


Purpose : this procedure saves the current game 
so that it can be continued at a later time. 
It saves all variables in files on disk so 
that can be retrieved by INITIALIZE OLD GAME. 


Parameters : none. 


Called by: ©CUI1 CAME 


(KAKA KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK*) 
procedure save game; 


begin 
end; 


(KAAKKKKKEKKAEKKKKKKKKKKKKKKKK KK KKKKKKKKKKKKKKKKKK) 


{ 
Procedure name ; GUD -Ut@ei wre lice 


Purpose : this procedure calculates and prints 
on a printer the statistics for the play of 
the game. 
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Parameters : none. 


Called by : QUIT_GAME 
} 


(RKKKKKKEKKKKKKKKKKEKKEKER EKER RR RK KK KKK KKK KK KK KKK EE ) 
procedure output_statistics; 


(KEKE AKKKKKK KK KKK EKER RAKE KKK KKK KKK KKK KES ) 


Procedure name : CALCULATE STATS 


Purpose : this procedure calculates the 
statistics for the game. 


Parameters : none. 


earled by : OUTPUT_STATISTICS 


(KAR KKAKKKKKKKKKKEKKEK KKK REREREKERREREREREREREKEKE ) 
procedure calculate_stats; 


var 
i_.einteger; 
temp node : node_record; 
node name : stringl0O; 


begin 
with game stats do 
begin 
avallability := 0.0 
ammo short _time := 
Vulnerability := 0. 
rounds _on_hand := 0; 
mocal Guns at start := 0; 
Bem 1 := 1 to number of firing units do 
begin 
availability := availability + 
(firing _units[i].total_ availability_time / 60); 
ammo _short_time := ammo_short_time + 
firing@inits(1).critically short time / 60); 
Vulnerability := vulnerability + 
Perringeunlts|i1).eritically vulnerable time / 60); 
rounds on_hand := rounds_on_hand + 
firing_units[i]}.rounds on_hand; 
total guns_at start ;:= total guns_at_start + 
firing_units[i]}.number of guns 
end; 
: max_availability := total_game_time * total_guns_at_start 
60; 
availability _ratio := availability / max_availability; 


oO; 
O; 
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max_ammo_short time := total_game_time 
total Guns sat Stare co, 


* 


ammo_short_time_ ratio := ammo _ short time / 
max_ammo_short_time; 
max vulnerability := total_game_time x 
total guns) atestanteye cd, 
vulnerability ratio := vulnerability / max_vulnerability; 
truck casualties := 0.0; 
for i := 1 to number_of_ammo_trucks do 
begin 
truck casualties := truck_casualties + 
(ammo _trucks[{i}.casualty_time / 60); 
if ammo trucks[{i].load_status = ’F’ then 
rounds on_hand := rounds_on_hand + 
round (ammo _trucks[{i].ammo_ capacity * 
ammo trucks[{i].effective_ percent) 
end; 
max _truck_casualties := total game time * 
number of _ammo_trucks / 60; 
truck casualties ratio := truck casualties i 
max_truck_casualties; 
moe := availability ratio - ammo_short_time ratio - 
vulnerability ratio - truck_casualties ratio; 
tareset (nodes) ; 
tanext (nodes, temp_node, node_name) ; 
while ok do 
begin 
rounds _on_hand = rounds _on_hand — 


temp node.ammo count; 


tanext (nodes, temp node, node_name) 
end; 


rounds_on_hand = rounds on_hand 
commanders. _guidance. bn_csr; 
if rounds_on_hand < 0 then 
rounds _on_hand := 0 
end 
end; 


(KAAKKKKKKEKKKKKKKEKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : PRINT STATS 


Purpose : this procedure prints the statistics 
for the game on the printer. 


Parameters : none. 
Called. by = OUTPUT STATISTLGS 
} 


(KAKA KKEKKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 
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procedure print_stats; 


const 
ff = 


begin 


alee 


with game stats do 


begin 
writeln 
writeln 
writeln 
writeln 
writeln 
writeln 
writeln 
write 
writeln 
write 
writeln 
writeln 
write 
(hours) 
writeln 
write 
») ; 

writeln 
write 
writeln 
writeln 
write 


short ammo (hours) 


writeln 
write 
(hours) 
writeln 
write 
writeln 
writeln 
write 


vulnerable (hours) 


writeln 
write 
(hours) 
writeln 
write 
writeln 
writeln 
write 
(hours) 
writeln 
write 


let yet); 
(lst); 
(lst); 
(lst); 
(lst); 
gist) ; 
(lst) ; 
(lst, ‘Game start time oe 
(tse, game start dtg); 
(lst, ‘Game end time ry 
(lst, game_dtg); 
Cist)r; 
(lst, ‘Total time firing sections were available 
eae) 
(lst, availability: 4:2); 
(lst, ‘Maximum possible availability time (hours) 


festa, amax cavallability: 4:2) ; 


(lst, ‘Availability ratio (maximize) a 
Pisa, eavallapility ratio:4:2); 
CLS); 
(lst, ‘Total time firing sections were critically 


a 
(lst, ammo_short_time:4:2); 
(lst, ‘’Maximum possible 
ey 
rst, 
cist, 
(lst, 
plist)? 
(lst 


criticably short_time 


max_ammo_ short time:4:2); 
[Ceitercally short ratio (minimize) 
ammo_short_time_ratio:4:2) ; 


Fas 


‘Total time firing sections were critically 
erst, vulnerability: 4:2); 

(lst, ‘Maximum possible critically vulnerable time 
e aes 


@EStye max vulnerability: 4:2); 


(lst, ‘Critically vulnerable ratio (minimize) NE: 
PiStymvulnerabllity ratio: 4:2) ; 
erst); 

(lst, ‘Total time lost due to truck casualties 


a) . 
GEST, truck casualties: 4 20" 
(lst, ‘Maximum possible casualty time (hours) 


oa; 
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writeln (lst, max_truck_casualties:4:2); 
write (lst, ‘Truck casualty time ratio (minimize) : ’); 
writeln (lst, truck_casualties_ ratio:4:2); 
writeln (lst); 
writeln (lst, ‘MOE (availability ratio - critically short 
racio =2)5; 
write (1S tae vulnerability ratio - casualty ratio) 
e f ° 
writeln (lst, moe:4:2); 
writeln (lst); 
write (lst, ‘Number of rounds on hand in excess of CSR 
(minimize) =) 7); 
writeln (lst, rounds_on_hand); 
writeln (lst, ff) 
end 
end; 


begin 
if not printer ready then 
begin 
save screen; 
draw window (21,12,60,15, yellow, red, null stringe 
center text (13, ‘Printer not ready’, yellow); 
center text (14, ‘press any key’, white); 
key := Geumkey, 
key := null; 
restore screen 
end; 
if total_game_time > 0 then 
begin 
calculate stats; 
if printer _ready then 
print_stats 


end 
end; 
begin 
choice := menu_selection (’Quit Game’, ‘Save game in 
progress|Abandon game\’) ; 
1f choice = 1 then 


save game; 
close_all_ files; 
output statistics 
end; 


begin 
initialize screen; 
repeat 
display _game_main screen; 
if not hostilities started then 
check_for_start_of_hostilities; 
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menu_xX1 := 1; 
menu_yli := 11; 
menu_X2 := 23; 
menu_y2 := 23; 
choice := menu_selection (’Game Menu’, ‘/Next time step|/’+ 


‘Issue command | ’+ 
teva tT! 4G. Ge 
parameters |/+ 
‘Network 
Beadity|’+ 
‘Quit game\’); 
menu_x1i_default; 
menu_yl := menu_yi_default; 
menu_x2 := menu_x2_default; 
menu_y2 := menu_y2_ default; 
case choice of 
1 : execute_next_time_step; 
2 : issue_command; 
Se Change Parameters; 
4 : network_utility 


menu xi : 


end 
until choice = 5; 
initialize screen; 
quit game 
end ; 


(RAK KKKKKK KKK KKK KK KKK KKK KK KK KK KKKKKKKKKKKKKKKE KEKE / 


{ 
Procedure name : PLAY NEW_GAME 


Purpose : this procedure initializes and plays 
a new game. 


Parameters : none. 


Called by : WARGAME 


(RAK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KK KKK) 
procedure play new_game; 


begin 

if initialize new game then 
play wargame 

end; 


(RK KKAKKK KKK KKK KK KKK KKK KKKKKKKKKKKKKKK KKK KKK KKK ) 


{ 
Procedure name : PLAY OLD GAME 


Purpose : this procedure initializes and plays 
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an old game. 
Parameters : none. 


Called by : WARGAME 


(KKK KKKK KK KK KK KKK KKKKKKKKKKKEKKKEKKKKKEKKKKKKEKKES ) 
procedure play old game; 


begin 

if initialize old game then 
play wargame 

end; 


begin 


end. 
af 
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(RAK KKKKKK KKK EK KKKEKEKEKKEKKEKKEEEKKEKK KK KKK KK KKK ) 


{ 
Unit name : INIT 


Purpose : this unit contains the procedures that 
initialize all of the variables and files for 
both a new game or an old game to be continued 
if desired. It also contains the procedures 
that allow the user to create or modify his 
battalion for the game. This includes the 
trains, fire units, and ammo trucks. The 
player can also modify the game parameters and 
commanders guidance with procedures in this 
unit. It calls procedures in unit SCENARIO 
to also allow the user to create and modify a 
scenario complete with nodes and paths. 


(RK KKKKKKKKKKK ERK KEK KEK EEK KEKE KEK EKEKRKEKERKKKKKKKKKE ) 
Mime init; 


interface 


{$I-} 


uses dos, crt, utility, gameutil, global, scenario, taccess, 
tahigh; 


procedure view game parameters; 
procedure view_commanders guidance; 
procedure view battalion configuration; 
function initialize new _game : boolean; 
function initialize old_game : boolean; 


implementation 

var 
firing _unit_ number : integer; 
ammo _truck_number : integer; 


(RRKRRK KKK KKK KKK KERR KKK KEKE KKK KKK ERE RKEKEKEKKKKE ) 


{ 
Procedure name : UNIQUE FIRING UNIT NAME 


Purpose : this procedure insures that a firing 
unit that is being created or modified is 
assigned a unique name. It checks the 
names of the other firing units, the ammo 
trucks, and the trains. 


Parameters : STRING VALUE - name to be checked 
| Called by : passed as a parameter to 
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EDIT SCREEN by UPDATE_FIRING UNIT _DATA 


(xe kkakk kk KKK KKK KKK KKK KKKKKKKKKKKKKKK KK KKK KKKKKEEEKS ) 


{$F+} 


function unique firing_unit_name (string_value : string80): 
boolean; 
var 
unique name : boolean; 
unit number : integer; 
begin 
unique name := true; 
if string value <>enul lwstringeencn 
begin 
for unit number := 1 to number of _firing_units do 


if (string_value = 
firing _units[unit number].firing_unit_name) and 
(unit number <> firing _unit number) then 
unique name := false; 
if unique name then 
unique name := (truck_number (string value) = 0) and 
(string value <> ‘’TRAIN’) 
ema 
else 
unique name := false; 
if not unique name then 
display error message (’INPUT ERROR’, null_string, 
Nudes tring: 
‘unit must have a unique name’, 
null string); 
unique firing unit name := unique name 
end; 


{$F-} 


(KA RKKKKAKKKKKK KKK KKEKKKEKKKKKKEKEKKKKKKKKKKKKEKKKKE / 


{ 
Procedure name : UNIQUE BUMPER NUMBER 


Purpose : this procedure insures that an ammo 
truck that is being created or modified is 
assigned a unique bumper number. It checks 
the bumper numbers of the other trucks, the 
names of the firing units, and the trains. 


Parameters : STRING VALUE - bumper number to be 
@neeckee 


Called by : passed as a parameter to 
EDIT SCREEN by UPDATE_AMMO_TRUCK_DATA 
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(KEAKKEKEAKKAEKKKKEKEKKKEKKKKKEERKEKEKRKKKEKKKKKKEKKEKEE ) 

cart } ; 
function unique bumper _ number (string_value : string80): 
boolean; 


var 
unique name : boolean; 
truck_number : integer; 


begin 
unique name := true; 
if string value <> null_string then 
begin 
for truck_number := 1 to number_of_ammo trucks do 


if (string_value = 
ammo _trucks[truck_number].bumper_number) and 
(truck_number <> ammo_truck_number) then 


unique name := false; 
if unique _ name then 
unique name := (unit_number (string_value) = 0) and 
(string value <> ‘TRAIN’) 
end 
else 
unique name := false; 


if not unique _name then 
display error message (’INPUT ERROR’, null_string, 
null string, 
‘truck must have a unique name’, 
me string) ; 
unique bumper number := unique name 
end; 


ior} 


(RAK KKKKKKKK KKK KKKEKKKKEK KKK KEKKEKKKKKEKKEKKKKKKKKKKK EE ) 


{ 
Procedure name : SAVE GAME PARAMETERS TO DISK 


Purpose : this procedure saves the game 
parameter to disk so that it can be used in 
successive games to be played by the user 
to save him the trouble of having to tailor 
it each time. 


Parameters : none. 


Called by : VIEW GAME PARAMTERS 
READY TO PLAY 


(RK KKK KK KEKE KEKE KKK KK KK KEKE ) 
procedure save _game_parameters to disk; 
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begin 
save screen; 
draw_window (27,11,54,15, yellow, red, null_ string); 
shade window (27,11,54,15, black); 
center text (13, ‘updating files...’, yellow); 
assign (gamparam file, game_parameter_ filename) ; 
rewrite (gamparam_file) ; 
if ioresult = 0O then 
write (gamparam_file, game_parameters) ; 
close (gamparam file); 
restore screen 
end; 


(Kak KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK) 


{ 
Procedure name : SAVE COMMANDERS GUIDANCE TO DISK 


Purpose : this procedure saves the commander’s 
guidance to disk so that it can be used in 
successive games to be played by the user 
to save him the trouble of having to tailor 
it each time. 


Parameters : none. 


Called by : VIEW COMMANDERS GUIDANCE 
READY TO PLAY 


} 


(AA KKKKKKKKKKKKKKEKKKKKEKKKEKKKEKKKKKKKKKEKKKKKKKKKKEKS ) 
procedure save commanders guidance to disk; 


begin 
save_screen; 
draw _window (27,11,54,15, yellow, red, null string); 
shade window (27,11,54,15, black); 
center text (13, “Updating filles ie cele. es 
assign (cdrguide_ file, cdrs_ guidance filename) ; 
rewrite (cdrguide file) ; 
if ioresult = 0 then 

write (cdrguide_file, commanders guidance) ; 
Close (cdrguide file); 
TeEStOLrensereen 
end; 


(KAKKKKKKKKKKKEKKKKKKKEKKKKKKKKKKKKEKKEKEKKKKKKKKKKKEKS ) 


{ 
Procedure name : SAVE _UNIT_DATA_TO DISK 


Purpose : this procedure saves the unit data 
to disk so that it can be used in 
successive games to be played by the user 


Foo 


to save him the trouble of having to tailor 
it each time. It saves the firing unit data, 
ammo truck data, and battalion trains data. 


Parameters : none. 


Called by : VIEW BATTALION CONFIGURATION 
READY TO PLAY 


(REKKKKKKKKKKKKEKKKEEKE KEKE KEKEEKKEEKEKEREEKEEKEEKS ) 
procedure save_unit data_to_disk; 


begin 
save_screen; 
draw window (27,11,54,15, yellow, red, null_string) ; 
shade window (27,11,54,15, black); 
Sameer text (13, ‘updating files...’, yellow); 
assign (trains file, trains filename) ; 
rewrite (trains file); 
if ioresult = 0 then 
write (trains file, battalion trains) ; 
close (trains file); 
assign (fireunit_file, firing_unit_filename) ; 
rewrite (fireunit_ file); 
if ioresult = 0 then 
Ser firing unit number := 1 to number of firing_units do 
write (fireunit file, 
Peewee Units{firing unit number])); 
close (fireunit file); 
assign (ammotrck file, ammo _truck_filename) ; 
rewrite (ammotrck file); 
if ioresult = 0 then 
for ammo_truck_number := 1 to number _of_ammo_trucks do 
write (ammotrck_file, ammo _trucks{ammo truck_number]}); 


Close (ammotrck file); 
memeore screen 
end; 


(RK KKKKKKKKKKKKKKKKKEKKKEKKKKKKEKKEKKKKEKEKKKKKKKEKEKE ) 


{ 
Procedure name :; VIEW _GAME PARAMETERS 


Purpose : this procedure allows the player to 
view, change, or print the game parameters for 
the game. 


Parameters : none. 


Called by : INITIALIZE NEW GAME 
CHANGE PARAMETERS 


ea 


(KAR KKKKKKKEKKKKEKKKEKKEKKKEKEKKEKKKEKEKEKEKRKEKRKEEKEKKKKKEKS) 
procedure view_game_parameters; 


(KKK KKK KKK KK KK KAKA KK KEKEKKEKEEKER ) 


{ 
Procedure name : SET UP_FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
battalion configuration data. 


Parameters : none. 


Called by : VIEW GAME PARAMETERS 
} 


(KKK KKK KKK KR KKK KEKE KK KK KK KKKKKKKKEKKKKKKKKKKE) 
procedure set_up fields; 


begin 
number of fields := 4; 
with field_list[1] do 
begin 
label string := ’Time step (minutes) :’; 
label_x := 15; slabelays. = iF 
int_value := game parameters.time_step size; 
str (int value, tecereva! je 
X1 := 637; yl := 10; x2 := 67, Sy2 == 
field _ type := int; int_min_ value := 1; int _max_ value := 
maxint 
end; 
with field list (2imae 
begin 
label string := ’Average track convoy speed (kph) :/7; 
label _ x := 15; labetey s.r. 
int_value := game_parameters.avg track convoy speed; 
str (int_value, str val); 
Xl := 63; yl := 922) “xX2) 3) = 6s ee eee 
field_type := int; int_min_value ;= 1; int max)vaoleeee 
120 
end; 
With Lelcd last (37) cde 
begin 
label string := ’Average wheel convoy speed (kph) :’; 
label_ x := 15; Wabelwy >= "ir 
int_value := game_parameters.avg_ wheel convoy_speed; 
str (int value, Stmivale 
X1 >= 63; yl := 14; kK2 :— 65 ; 2 eee 
field_ type := int; int _min value := 1; int_max_valuewe 
i2¢ 
eng; 


SZ 


with field _list{4] do 

begin 

label string := ‘Average time from trains to ATP 
(minutes) :/; 


ll = 


label x := 15; label_y := 16; 

int value := game_parameters.avg_time_trains_to_atp; 

str (int_value, str_val); 

X1 := 637; yl := 167 xX2 := 65; y2 := 16; 

field type := int; int_min_value := 1; int_max_value := 
maxint 

end 
end; 
begin 


set_up fields; 

save_screen; 

Mmear area (1,2,80,25); 

draw_window (1,3,80,23, white, blue, ’Game Parameters’) ; 

display edit _screen_help line; 

edit screen (number of fields, field_list, not 

abort allowed) ; 

with game parameters do 
begin 
time step size 
avg track_convoy speed 
avg _ wheel convoy _ speed 
avg time trains to atp 
end; 

Save _game_parameters to disk; 

restore screen 

end; 


field list[{1]}).int value; 
field_list[{2].int_value; 
field list[{3].int_value; 
field list[4].int value 


ll wt uel 


(RK KK KK KKK KKKKKKKKKKKKKKEKKEKKEKKKKKKKEKEKEKKEKKKKSE ) 


{ 
Procedure name : VIEW_COMMANDERS_ GUIDANCE 


Purpose : this procedure allows the player to 
view, change, or print the commanders guidance 
for the game. 


Parameters : none. 


Called by : INITIALIZE NEW GAME 
CHANGE PARAMETERS 


(RRA KKKKKKKKKKKKKKK KKK KEKE KKEKKEKKEKKKKKKEKKEEESE ) 
procedure view_commanders guidance; 


(ARK KKKHKKKKKKKKKKKK KKK KKK KKK KKKKEKKKKEKEREKEKEKKE ) 


{ 
fmeaeeeaure name : SET UP FIELDS 


255 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
commanders guidance data. 


Parameters : none. 


Called by : VIEW _COMMANDERS GUIDANCE 


(KK AKKKKKKEKKKEKKKEKEKEKKEKKEKEEKEKEEEEKEKKEKEEEKKEKKKKKE ) 
procedure set_up_ fields; 


begin 
number _ of fields := 9; 
with field_list[1] do 
begin 
label string := ‘Unit sitrep frequency (minutes) :/’; 
label_x := 14; label_y := 5; 
int value := commanders _guidance.unit sitrep frequency; 
str (int_value, str_val); 
X1 3:= 637; Yl i= 5; X2 := 655 yee eee 
field type := int; int_min_value := 1; int_max_value := 
maxint 
end; 
with field list[2] do 
begin 
label string := ’Vulnerability threshold (hours) :’; 
label _ x := 14; label_y := 7; 


float value <= 
commanders guidance.vulnerability threshold time; 
str (float_value:6:3, str_val); 


Xl := 637; yl t= Ve X2 $= GBF y2 := 7; 

field type := float; float_min_value := 0.0; 
float_max_value := 100.0 

end; 
with field listi3 jedi 

begin 

label string := ’Vulnerability threshold (rds / position) 
e Fe 

label x := 14; label y := 9; 


int value := 
commanders_guidance.vulnerability threshold rounds; 
Str (int_value, Sstravaign, 


X1 := 637; yl := 9; x2 := 65; "~y2i——997 

field_type := int; int_min_ value := 1; int_max_ value= 
maxint 

end; 
with field list[{4} do 

begin 

label string := ’Ammo truck crew rest (hrs / day) :7; 

label x := 14; labeliye:— ie 
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float value := commanders guidance.crew_rest_per day; 
str (float_value:6:3, str_val); 
Mesa O35, Yl <= ll; xX2 := 68; y2 := ll; 

= 0.0; 


field type := float; float_min_value 
float_max_value := 24.0 
end; 
with field list[5]} do 
begin 
label string := ‘Battalion CSR :’; 
label x := 14; label_y := 13; 
int_value := commanders _guidance.bn_csr; 
str (int_value, str_val); 
Memes OF; Yl := 137 x2 := 66; y2 := 13; 
field type := int; int_min_value := 1; int_max_value ;:= 
maxint 
end; 
with field list[6] do 
begin 
label string := ’BMNT :’; 
label x := 14; Jlabel_y := 15; 
str val := commanders _guidance.bmnt; 
mame OF, Yl s= 157 X2 3= Ge y2 := 15; 
field type := time 
end; 
with field list[{7] do 
begin 
label string := ’EENT :’; 
label x := 14; label _y := 17; 
str_val := commanders guidance.eent; 
eee OSs Yl s= 175 xX2 3= 67Fe y2 3= 17; 
field type := time 
end; 
With field list{8] do 
begin 


label string := ’Maneuver mission (Offense/Defense/No 
Semeact) :/’; 


mapel xX := 14; Ilabel_y := 19; 
str_val := commanders guidance.maneuver_ mission; 
Meee OS; Yl := 197 xX2 := 63; y2 := 19; 
Meeld type := ch; valid char set := [’0’,’D’,’N’]); 
end; 

with field list[9] do 
begin 
label string := ’Axis (bearing in degrees) :’; 
label _x := 14; label _y := 21; 
int_value := commanders guidance.axis; 


str (int_value, str_val); 


Rs = 637; Yl 3:= 21; xX2 := 66; y2 := 21; 

field type := int; int _min_value := 1; int _max_value := 
360 

end 


Eo 


ena; 


begin 

set_up_ fields; 

Save screen; 

cleamearea (172750, coe 


draw _ window (1,3,80,23, white, blue, ’Commander’’s 


Guidance’); 
display edit screen help line; 


edit screen (number_of fields, field_list, not 


abort _allowed) ; 
with commanders _ guidance do 
begin 
unit _sitrep frequency 
field list{1).int_value; 


vulnerability threshold_time 


field list[2). float walue; 


vulnerability threshold_rounds 


field list(3].intevaluc, 
Crew eECSUesper aay 

field list(4).float_value; 
bn_csr 

field list[(5]).int_value; 
bmnt 
elenct 
maneuver mission 

field list/(3)]).str valeur 
axis 


end; 


field list(6].strjveue 
field list[(7].strivem 


field list(9].int)vame 


save commanders guidance to disk; 


FeStOre goermecm 
end; 


(KEK KK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK | 


{ 


Procedure name : VIEW_BATTALION CONFIGURATION 


Purpose : this procedure allows the player to 
view, change, or print the battalion 


configuration for the game. 


It presents the 


player with a menu to select the trains, 


fire units; or ammo “trhoueks- 


Parameters : none. 


Called by : INITIALIZE NEWSGAME 


(KK KKKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKKK KKK KKK KEK) 
procedure view _battalion_ configuration; 
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var 
choice : integer; 


(RRKKKKKEEKKKKEKEKKEKEEKKEEKEKEKEKEKEKEKKEKKEKKEKKKKKE | 


{ 
Procedure name : UPDATE _TRAINS_LOCATION 


Purpose : this procedure allows the player to 
view, change, or print the location of the 
battalion trains for the start of the game. 


Parameters : none. 


Called by : VIEW BATTALION CONFIGURATION 


(RRRKKKKKKKKEKEKEEEKEKEEKKEREKEREEKKEKEKKEKKKEKKKKKKKKKKS ) 
procedure update _trains_ location; 


(RRR EKKEKEERKEEKEEEKREREKEEKEKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : SET UP FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
location of the battalion trains data. 


Parameters : none. 


Called by : UPDATE TRAINS LOCATION 
} 


(RARER AKER KKK KEKKKKKKKKKKKKKKKKKKE) 
procedure set_up fields; 


begin 
number of fields := 1; 
with field list[1] do 
begin 
label_ string := ’Trains location (node) :’; 
label x := 27; label_y := 13; 
str_val := battalion trains. location; 
ees = O37 Yl 2:= 137; x2 := 573 y2 := 13; 
field type := strg 
end 
end; 
begin 


set_up fields; 

Save_screen; 

Suearearea (2,4,79,22); 
display edit_screen help line; 


Low 


edit screen (number of fields, field list, not 
abort allowed) ; 

battalion _trains.location := upper case 
(field_list[{1]}.str_val); 

FeStrOrersercen 

end; 


(KAR RKKKKKKKKKKKKKKKKEKKKKEKEKKEKKEKKEKKEKEEEKEKEREKKKKKKE ) 


{ 
Procedure name : UPDATE _NUMBER_OF_ UNITS 


Purpose : this procedure allows the player to 
view, change, or print the number of ammo 
trucks and fire units to use for the play of 
the game. 


Parameters : none. 


Called by : VIEW BATTALION CONFIGURATION 
} 


(KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 
procedure update number of units; 


(KKK KKKKK KK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : SET UP FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
the number of fire units and ammo trucks. 

Parameters : none. 


Called by : UPDATE_NUMBER_OF UNITS 


(KAR KKKKKKKKEKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS | 
procedure set _ up fields; 


begin 
number of fields := 2; 
with field list[1] do 
begin 
label_string := ‘Number of firing units :7; 
label x := 257 )labeliy s.r 
int_value := number of firing_units; 
str (int_value, str_val); 
X1 $= 537 Yl i= 12; xX2 33955; 9) 2a 
field type := int; int _min value := 1; int_max value 
max firing_units 
end; 


With field list (Zima 
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begin 

label string := ‘Number of ammo trucks :’; 
label x := 25; label_y := 14; 

int_value := number_of_ammo_trucks; 

str (int value, str_val); 


X21 s= 537; yl := 14; x2 := 557 y2 := 14; 

field type := int; int_min_value := 1; int_max_value := 
max_ammo_trucks 

end 
end; 
begin 


set_up_ fields; 

save_screen; 

clear_area (2,4,79,22); 

display _ edit screen_help line; 

edit screen (number_of_fields, field_list, not 
abort_allowed) ; 
number of firing units 
number of _ammo_ trucks 
restore screen 

end; 


field list[1].int_value; 
field list[{2].int_ value; 


(RRKKKKKKEKKEKKEKKKKEKEKKEKKKEKKEKKKEKEKKEEKEEKEKKEKEKKKEKKES ) 


{ 
Procedure name : UPDATE FIRING _ UNIT _ DATA 


Purpose : this procedure allows the player to 
view, change, or print the data that pertains 
to the fire units for the play of the game. 

Parameters : none. 


Called by : VIEW_BATTALION CONFIGURATION 


(RAK ARKKKKKKEKKEKKKKKEKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKS ) 
procedure update_firing unit data; 


(KEKE KKEKKKKKEKKKEEKKEKKKEKKE EKER EKEEEEEEEEKEKEKEKKES ) 


{ 
Procedure name : SET UP_FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
data for the fire units. 

Parameters : none. 

Called by : UPDATE_FIRING UNIT DATA 


(REAR AKKAKKEKKKKKKKKEKK KEKE REE EKER EKKEEKEKKEKEEEEESE ) 
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procedure set_up fields; 


begin 

number of fields := 6; 

with field list[1] do 
begin 


label string := ’Unit name :’; 
label x := 17; label_y := 8; 
X11 := 57; yl := 8; x2 := 61; y2 


field type := eval; eval_function := 
unique firing _unit_name 
end; 
with field _list[2] do 
begin 
label string := ’Number of guns :’; 
label x := 17; label_y := 10; 
X1 3:= 57; yl := 107 xX2 := 61; y2 := 10; 
field type := int; int_min_value := 1; int_max_value := 
maxint 
end; 
with field list{3] do 
begin 
label string := ’Location (node) :7; 
label x := 17; label _y := 12; 
X1 := 57; yl := 22; x2 32> 612 ee 
field type := strg 
end; 
with field list[4] do 
begin 
label string := ’Firing section capacity (rounds) :/’; 
label x := 17; label y := 14; 
Xl 3:= 57; yl := 147; x2 := 60; y2 := 14; 
field type := int; int_min_value := 1; int_max_value := 
maxint 
end; 
with field list( Sido 
begin 
label _ string := ’Rounds on hand for firingeuniiees, 
label _ x := 17; labelwy :—=ile; 
Xl := 57; yl := 16; x2 := 607 Sy 28 ue 
field _ type := int; int_min_ value := 1; int_max_ valueume 
maxint 
end; 
with field list[{6]) do 
begin 
label string := ’Sustained rate of fire (rounds/tube) :;7’; 
label x := 17; label _\ aja 
Xl := 57; yl := 18; x2 := 60; y2 := 18; 
field type := int; int _min_ value := 1; int _max_value := 
maxint 
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end 
end; 


begin 
set_up fields; 
save_screen; 
Clear area (2,4,79,22); 
display edit screen help line; 
center text (24, ‘Page Up - next firing unit a4 
‘Page Down - previous firing unit’, red); 
center text (5, ‘Firing unit data’, cyan); 
firing unit number := 1; 
repeat 
save screen; 
Cllear area (2,6,79,22); 
with firing units[firing_unit_number] do 


begin 

field list[{1].str_val := firing_unit_name; 

field list[2].int_ value := number of guns; 

str (field list[2].int value, field _list[2].str_val); 
field list[3].str_val := location; 


field list[{4].int value := 
section max rounds capacity; 
str (field _list[{4].int value, field list[4].str_val); 


field list[5].int_value := rounds_on_hand; 
Sema (field Vist[5].int walue ..f1eldelast[5].str_val); 
field _list[{6].int_ value := sustained rate of fire; 


Stra fteld listyi6)].intwvalue, field list(6].str_val); 
edit screen (number of fields, field list, not 
abort allowed) ; 
firing_unit name >= upper case 
eeretd list(1].str val); 
number of guns 
field _list[2].int value; 
sections _in_ operating condition 
location 
eevee) list(3].str val); 
section _max_rounds capacity 
field_list[4].int value; 
rounds_on_hand °= 
Sreld list[(5].int value; 
sustained rate of fire := 
field _list[6].int value 


number of guns; 
UP perEcase 


end; 
if key = page down then 

begin 

if firing_unit number = 1 then 
firing_unit_number := number of firing_units 

else 
decr (firing _unit number) 

end 


cu 


else if key = page_up then 
begin 
if firing_unit_number = 
firing _unit number : 
else 
incr (firing_unit_number) 
end; 
restore screen 
until key = escape; 
restore Serecn 
end; 


number of firing_units then 
1 


(Kak KKK KKK KK KKK KK KK KKK KKK KKKAKKKaKKK KKK KKK KKK KK KKK) 


{ 
Procedure name : UPDATE AMMO TRUCK_DATA 


Purpose : this procedure allows the player to 
view, change, or print the data that pertains 
to the ammo trucks for the play of the game. 


Parameters : none. 


Called by : VIEW BATTALION CONFIGURATION 


(RAK KKK KKK KK KKK KKK KK KKK KKK KKHEKKKEKEKKKEKKKKKKKKEKKES | 
procedure update_ammo truck data; 


(RAK KAKA KAKA KKKKAKKKKAKKKKKKKKKKKKKKKKKAKK KKK KKK KKK) 


{ 
Procedure wname =) SEL SUP eI aeeES 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
data for the ammo trucks. 

Parameters : none, 


Called by : UPDATE_AMMO TRUCK_DATA 


(KAKA KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KY) 
procedure set_up fields; 


begin 
number of fields := 4; 
With field list( Miedo 
begin 
label string := ’Bumper number :’; 
label _ x := 24; label _y := 10; 
Xl := 54; yl := 10; x2 := 58; y2.—eG. 
field type := eval; eval function := 


unique bumper number 
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end; 
wich field list[2]} do 


begin 
label string := ’Location (node) :’; 
label x := 24; label_y := 12; 
X1 := 54; yl := 12; x2 := 58; ye := 12; 
field type := strg 
end; 
with field _list[3] do 
begin 
label string := ‘Load status (Full / Empty) :’; 
label x := 24; label_y := 14; 
X1 := 54; yl := 14; x2 := 54; y2 := 14; 
field type := ch; valid_char_set := [’F’,’E’] 
end; 
with field_list[4] do 
begin 
label string := ‘Truck capacity (rounds) :’; 
label x := 24; label_y := 16; 
Bees = 545; yl := 16; x2 3:= 577 y2 := 16; 
field type := int; int_min_value := 1; int_max_value := 
maxint 
end 
end; 
begin 


set_up fields; 
Save screen; 
Sear area (2,4,79,22);3 
display edit screen help line; 
Bemeer text (24, ‘Page Up - next ammo truck ot 
‘Page Down - previous ammo truck’, red); 
center text (5, ‘Ammo truck data’, cyan); 
ammo_truck_number ;:= 1; 
repeat 
Save screen; 
clear area (2,6,79,22); 
with ammo_trucks[ammo_truck_ number] do 
begin 
field _list[1].str val 
field _list[2]}.str_ val location; 
field list[(3].str val load_status; 
field_list[4].int_ value := ammo capacity; 
str (field_list[4].int_value, field list[4].str_val) ; 
edit_screen (number of fields, field _list, not 
abort allowed) ; 
bumper number := upper _ case (field list[{1].str_val); 


bumper number; 


location 


upper case (field list[{2].str_val); 


load_status 


Pireld 11st (ikastie Val [ 1}; 
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ammo capacity := field list(4]-intevaioe 


end; 
if key = page down then 
begin 
1f ammo_truck_number = 1 then 
ammo truck_number := number _of_ammo_trucks 
else 
decr (ammo_truck_number) 
end 
else if key = page_up then 
begin 
if ammo _truck_number = number_of_ammo_trucks then 
ammo_truck_number := 1 
else 
incr (ammo_truck_number) 
end; 


restore screen 
until key = escape; 
restore screen 
end; 


begin 

Save screen; 

clear areas ,2, 5072 

draw window (1,3,80,23, white, blue, Baccara 
Configuration 7 Stacus a, 


menu xl := 20; 
menu_yl := 7; 
menu x2 := 60; 
MenUMy 25. — Soe 
repeat 
choice := menu_selection (null_string, ‘Location of 


trains | ?+ 
‘Number of firing 
Unves 7 trucks ea. 
‘Firing Unease 
data| /+ 
‘Ammo CEucke 
diateaue 
‘Return \ on, 
case choice of 
1 : update trains location; 
2 : update_number of units; 
3: Update firing Unwereaea, 
4 :; update _ammo_ truck_data 


end 
UnNELTE Chomee (a5. 
menu_xX1l := menu_x1 default; 
menu_yl := menu_yl default; 
menu_x2 := menu_x2 default; 
menu_y2 := menu_y2 default; 
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save_unit_data_to_ disk; 
restore screen 
end; 


( Ha KK KKK HK KKK KK KKK KEKE KKK EKEKKKKK KE KKKEKE ) 


{ 
Procedure name : INTIALIZE_ NEW_GAME 


Purpose : this procedure initializes all 
Variables and files for the play of a new game. 
It also provides a menu for allowing the player 
to view, modify, or print any of the parameters, 
commanders guidance, unit data, or network. It 
returns a false if the player elects to return 
to the game’s main menu. 


Parameters : none. 


Called by : PLAY NEW _GAME 


(A RKKKKKKKKKEKKEEKKKEKKKEEKKEEKKKEEKKEKKKEKKKEKKKKKKKKKKS ) 
function initialize new_game : boolean; 


var 
choice : integer; 


(ARK AKKKKEKKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKEKKS ) 


{ 
Procedure name : INTIALIZE NEW_GAME VARIABLES 


Purpose : this procedure initializes all 
variables and files for the play of a new game. 


Parameters : none. 


Called by : INITIALIZE NEW GAME 


(RAKKKKKAKKKKKKKEKKKKKKKKKKKKKKKKKKKK KK KKK KK KKKKKK ) 
procedure initialize new game variables; 


(KERR KEKKKKKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK) 


{ 
Procedure name : INTIALIZE_ GAME PARAMETERS 


Purpose : this procedure initializes the game 
parameters by reading them from disk if they 
exist from a previous game or by assigning 
default values from unit GLOBAL if a file 
does not exist from a previous game. 


Parameters : none. 


Oo 


Called by : INITIALIZE NEW GAME VARIABLES 
} 


(KAKA KKEKKKKEEKEKKKEKEKKKKKEKKKKKKKKKKKKKKKKKS ) 
procedure initialize game_parameters; 


begin 
game_parameters := default_game_parameters; 
assign (gamparam file, game_parameter_ filename) ; 
reset (gamparam_ file); 
if loresult = 0 then 
read (gamparam_file, game_parameters) ; 
close (gamparam_file) 
end; 


(KAKA KKKKKKKKKK KKK KRKKKKKKEKKKEKKEKKKKKKKKKEEEEKES | 


{ 
Procedure name : INITIALIZE COMMANDERS GUIDANCE 


Purpose : this procedure initializes the 
commanders guidance by reading them from disk 
if they exist from a previous game or by 
assigning default values from unit GLOBAL if a 
file does not exist from a previous game. 


Parameters : none. 


Called by : INITIALIZE NEW GAME VARIABLES 


(xe kkk kkk kkk kkk kkk kkk kk Kk KKK KKK KKK KK KK KKK KKK KKK) 
procedure initialize commanders guidance; 


begin 
commanders guidance := default_commanders_ guidance; 
assign (cdrguide file, cdrs_guidance_ filename) ; 
reset (cdrguide file); 
if ioresult = O then 
read (cdrguide_ file, commanders_guidance) ; 
close (cdrguide_ file) 
end; 


(AAAKKKAKKKKKKKK KKK KKK KK KKKKKK KK KKKKKK KKK KKK KKK | 


{ 
Procedure name : INITIALIZE _UNIT_DATA 


Purpose : this procedure initializes the unit 
data by reading them from disk if they exist 
from a previous game or by assigning default 
values from unit GLOBAL if a file does not 
exist from a previous game. 


166 


Parameters : none. 


Called by : INITIALIZE NEW GAME VARIABLES 


(HAKKKKKAKKAKKKKKEKKKKKKKKKKKKKEEKKEKKEKEKKKKKKKEE ) 
procedure initialize unit_data; 


begin 
battalion trains := default_battalion_trains; 
for firing _unit_number := 1 to max_firing_units do 


firing units[firing_unit_number] := 
default firing_unit_data; 
for ammo_truck_number := 1 to max_ammo_trucks do 
ammo trucks[ammo_truck_number] := 
default_ammo_truck_data; 
assign (trains file, trains filename) ; 
reset (trains file); 
assign (fireunit file, firing_unit_filename) ; 
reset (fireunit_file); 
assign (ammotrck_file, ammo _truck_filename) ; 
reset (ammotrck_file); 
if ioresult = 0O then 
begin 
read (trains file, battalion trains) ; 
if ioresult <> 0 then 


battalion trains := default battalion trains; 
firing_unit_ number := 0; 
while not (eof (fireunit file)) and (ioresult = 0) and 
(firing _unit_number < max_firing_units) do 
begin 


ter (firing unit number) ; 
meag (fLireunit file, firing units{ figangeunit number] ) 


end; 
if (loresult <> 0) and (firing_unit number <> 0) then 
firing_units[{firing unit number] := 
ferault firing unit data; 


ammo_truck_number := 0; 
while not eof (ammotrck_file) and (ioresult = 0) and 
(ammo_truck_number < max_ammo trucks) do 
begin 


incr (ammo_truck_number) ; 
read (ammotrck_file, ammo_trucks{ammo_truck_number]}) 
end; 
if (ioresult <> 0) and (ammo_truck_number <> 0) then 
ammo_trucksf[ammo_truck_ number] := 
Seeault ammo_truck data; 
end; 
close (trains file); 
Close (fireunit file) ; 
Close (ammotrck_file) 
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end; 


(RARKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : INITIALIZE EVENTS_LIST 


Purpose : this procedure initializes the files 
that will be used to maintain the events list 
throughout the game. 


Parameters : none. 


Called by : INITIALIZE NEW GAME VARIABLES 
} 


(KAKKKKKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKE ) 
procedure initialize event_list; 


begin 
makefile (event list, event _data_ filename, sizeof 


(event _record)); 
makeindex (time_index, event time index filename, 
sizeof (stringl0) - 1, duplicates) ; 
makeindex (serial number index, event_serial_index_ filename, 


sizeof (string5) - 1, duplicates) 
end 


(KARR KKKKKKEKRKKKEKEKEEKEKKKKEKKKKKKKEKKEKEKEKKKEKKEKKEKKKKS | 


{ 
Procedure name : INITIALIZE MESSAGE LIST 


Purpose : this procedure initializes the files 
that will be used to maintain the message 
buffer throughout the game. 


Parameters : none. 
Called by ;: INITIALIZE NEW GAME VARIABLES 


(AA ARAKKAKKKKEKKKKKKEKEKKKKKKEKKKKEKRKKEKKKEKRKEKKEKKEKKEKKEKE ) 
procedure initialize message list; 


begin 

makefile (messages, message data filename, sizeof 

(message record) ); 

makeindex (message_type_index, message_type_index_filename, 
Sizeof (char), duplicates) 

end; 


begin 
save screen; 
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draw window (26,11,55,15, yellow, red, null_string); 
center text (13, ‘initializing game...’, yellow); 
repeat 
scenario file name := 
get file (’Enter scenario file name’, 
‘Hit ESC key to build a new scenario’, 
’*.scn’) 
until (scenario file name = null string) or 
(scenario file valid); 
if scenario file name = null_string then 


begin 
scenario file name := get_new_scenario filename; 
initialize new_scenario 
end; 
game start dtg := scenario _info.start dtg; 
dtg to datetime (game start dtg, game_start time); 
game dtg := game_start_dtg; 
game time := game start_time; 
number of firing_units := default number of firing units; 
number of ammo trucks := default_number of ammo trucks; 


initialize game parameters; 
initialize commanders guidance; 
initialize unit data; 
initialize event list; 
initialize message list; 

total game _time := 0; 

new day := false; 
determine day or night; 


time_since last _sitrep := 0; 
hostilities started := false; 
command serial number := 0; 
randomize; 

restore screen 

end; 


(RRR KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK) 


{ 
Procedure name : READY TO PLAY 


Purpose : this procedure insures that the game 
is ready to be played after initialization by 
checking to make sure that all units are 
placed at an existing node for game start. 


Parameters : none. 
Called by : INITIALIZE NEW GAME 
} 


(RR AKK AKA K KK AK K KKK KK AKK EK AAK KKK AKKKEA RK K EK) 
function ready to play : boolean; 
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var 
ready : boolean; 
temp _node : node_record; 


begin 
atp_rounds on_hand := 0; 
for firing_unit_number := 1 to number _ of firing_units do 
atp_rounds_on_hand := atp_rounds_on_hand + 
firing units(firing_unit_number].number_ of _guns; 
atp rounds _on_hand := atp_rounds_on_hand * 


commanders guidance.bn_csr; 
Save_game_ parameters to disk; 
save commanders guidance_to_disk; 
save_unit_data_to_ disk; 
ready := true; 
for firing_unit number ;:= 1 to number oOfsefiring Unitseae 
begin 
taread (nodes, temp _ node, 
firing units[firing unit number]: iocatweny 


exactmatch) ; 
if not ok then ready := false 
end; 
if ready then 
for ammo_truck_number := 1 to number of ammo trucks do 
begin 


taread (nodes, temp_node, 
ammo trucks[{ammo_truck_number].location, 
exacenaten 
if not ok then ready := false 
end; 
1f ready then 
begin 
taread (nodes, temp node, battalion trains.location, 
exactmatch) ; 
if not ok then ready := false 
end; 
if not ready then 
display error message (’INITIALIZATION ERROR’, 
‘firing units, tCHueks anc 
trains’, 
‘must start game at valid 
locations’, 
null string: 
‘correct this before continuing’); 


ready to play := ready 
end; 


begin 
initialize new game variables; 
repeat 
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choice := menu_selection (‘Scenario / Parameter Menu’, 
‘View or change scenario / 
network | ’+ 
‘View or change game 
parameters | ‘+ 
‘View or change commander’’s 
guidance| ’+ 
‘View or change battalion 
configuration / status| /’+ 
‘Play game|/’+ 
‘Main menu\’); 
case choice of 


1 : view scenario; 

2 : view _game_parameters; 

3 : view_commanders_ guidance; 

4 :; view _battalion_configuration 
end 


until ((choice = 5) and ready to play) or (choice = 6); 
if choice = 6 then 
close all files; 
initialize new_game := choice = 5 
end; 


(RARER KKK KEKE KKK KKK KEKKKKEKEKKKEKEKEKKRKKKKKKKKKKKK | 


{ 
Procedure name : INTIALIZE OLD_GAME 


Purpose : this procedure initializes all 
variables and files for the play of an old game 
that was saved in progress. The procedure 
automatically loads the data from disk if 
there is a game file there to be loaded. It 
returns a false value if it could not load the 
game successfully. 


Parameters : none. 


Called by : PLAY OLD GAME 
} 


(RA KKKKKKKK KKK KEKE KKK KEKEKKEKKEKKEKKK KKK KKKKKKKKKKKES ) 
function initialize_old_game : boolean; 


begin 
initialize old game := false 
end; 


begin 


end. 
a2 


La 


(AK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKEKE ) 


{ 
Unit name : SCENARIO 


Purpose : this unit contains the procedures that 
allow a player to create, modify, view, or 
print a scenario file. This includes the 
scenario header, the node data, and the path 
data. It also reads and saves scenario files 
from and to disk. 


} 


(KeEKKKKKKK KKK KKK KKKKEKKKKKKKKKKKKKKKKEKKKKKKKKKKE ) 
unit scenario; 


interface 


(SES) 
uses dos, crt, utility, gameutil, global, taccess, tahigh; 


function scenario file valid : boolean; 
function get new scenario filename : string; 
procedure initialize new_scenario; 

procedure view scenario; 

procedure network_utility; 


implementation 

const 
add record = true; 
edit _record = false; 


(KKK KK KKK KKK EKA KK KEKE KKK KKK KKEKKEKEKKEKKKKKKK KK ) 


{ 
Procedure name : SAVE SCENARIO TO DISK 


Purpose : this procedure saves the scenario 
header information to disk. 


Parameters : none. 


Called by : VIEW_SCENARIO 
} 


(KKK KEKE KEKE K KKK KKK KKKEKKEKKEKEKKEKKEKEKEEKKES ) 
procedure save scenario to disk; 


var 
1 : integer; 

begin 

Save screen; 

draw_window (26,11,55,15, yellow, red, nulistrmiae 
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Emade windew (26,11,55,15, black) 

center text (13, ‘updating files...’, yellow); 

assign (scenario file, scenario file_name); 

rewrite (scenario file); 

if ioresult = O then 

with scenario _ info do 
begin 
writeln (scenario file, scenario_file_ header) ; 
writeln (scenario file, opord_number) ; 
writeln (scenario file, opord date) ; 
writeln (scenario file, map_sheets) ; 
writeln (scenario file, start_dtg); 
fOr. — ito 1OTdSe 
writeln (scenario file, admin_notes[i]) 

end; 

close (scenario file); 

restore screen 

end; 


(AAKAKAKAKAAAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : VALID SCENARIO FILENAME 


Purpose : this procedure insures that a 
file name entered for the new scenario is a 
valid and not previously used name. 


Parameters : STRING VALUE - filen name to be 
checked. 


Called by : passed as a parameter to 
EDIT SCREEN by GET NEW SCENARIO FILENAME 


(RA KAKAKAKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 

(SF+) 

function valid_scenario_ filename (string_value : string80) 
; boolean; 


var 
temp file : file; 
valid filename : boolean; 


begin 
valid filename := false; 
assign (temp_file, string value) ; 
reset (temp file); 
iieeroresult = 2 then 

begin 

rewrite (temp file); 

if iloresult <> 2 then 

begin 


IF 


valid filename := true; 
erase (temp file) 
end 
end; 
if not valid filename then 
display error_message (’FILE ERROR’, null_string, 
‘filename entered is not valid’, 
‘or already exists’, 
null string), 
close (temp file); 
valid scenario filename := valid_filename 
end; 


{$F-} 
(KKK KKKKKKKKKKKKKKKKKEKKKKEKKKEEKEKEKRKEKEKEEKKKEKERE | 


{ 
Procedure name : SCENARIO FILE VALID 


Purpose : this procedure checks a selected 


scenario file name to insure that the file 
contains a valid scenario that can be loaded. 


Parameters : none. 


Called by : INITIALIZE NEW_GAME VARIABLES 


(KAKA KKK KKK KEK KEKEKKEKKKKKKKKEKKKEKKEKKKEKKKKKEKEKKKKS ) 
function scenario file valid : boolean; 


var 
file header : string80; 
Meeranteger; 
scenario valid : boolean; 
Gir : diaretr; 
name : namestr; 
ext : extstr; 

begin 

scenario valid := false; 


assign (scenario file, scenario file name) ; 
reset (scenario file); 
if ioresult = 0 then 
begin 
readin (scenario file, file header) ; 
if file header = scenario file header then 
begin 
with scenario info do 
begin 
readln (scenario file, opord number) ; 
readin (scenario_file, opord date); 
readln (scenario file, map sheets); 
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readln (scenario file, start_dtg); 
Forw1 := 1 to 10 do 
readin (scenario file, admin_notes[1i]}) 
end; 
if (ioresult = 0) and (valid_dtg 
(scenario info.start_dtg)) then 


begin 

fsplit (scenario_file_name, dir, name, ext); 

node _data_filename := dir + name + 
node data_filename_ext; 

path_data_filename := dir + name + 
path_data_filename_ext; 

node_index filename := dir + name + 
node_index_filename_ext; 

path_index filename := dir + name + 
path_index_filename_ext; 

taopen (nodes, node data filename, sizeof 


(node record), 
node_index filename, sizeof 
Metering 5) yes 
if ok then 
begin 
taopen (paths, path_data_filename, sizeof 
(path record), 
path_index filename, sizeof 
(string_5) ee 
if ok then 
scenario. valid := true 
end 
end 
end 
end; 
if not scenario valid then 
display _error_message (null_string, scenario file name, 
‘INVALID SCENARIO FILE’, 
‘check it before continuing’, 
"Oramory another’ )% 


scenario file valid := scenario valid; 
Close (scenario file) 
end; 


(KKK AKA KK KKK KKK KK KK KK KKK AKER EKKEKKEKEKKKKKE ) 


{ 
Procedure name : GET _NEW_SCENARIO FILENAME 


Purpose : this procedure prompts the player to 
enter a name for the new scenario that he would 
like to create. 


Parameters : none. 


Hay f 2: 


Called by : INITIALIZE NEW GAME VARIABLES 


(AA KKKKKKEKKEKKEKKEKEKKEKEKEEKKKKKKEEEEEEEEKKEEKEKEKEKEKKKES ) 
function get _new scenario filename : string; 


(XA KKKKKKKKKKEKEKKKEKEKKKEKKKKKEKKEKKEKEKKEKKEEKKKKKKKKKKE ) 


{ 
Procedure name :; SET UP_FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
prompt for entering a file name. 

Parameters : none. 


Called by : GET NEW SCENARIO FILENAME 


(KKK KAKA KKK AKER KEKE REKKKEKKEKEKKEKEKEKKEKKKEKKS ) 
procedure set_up fields; 


begin 
number of fields := 1; 
with fireldv list (aide 
begin 
label string := ’File name for new scenario :’; 
label xX := 10; abe Riya. 
str_val := default scenario file name; 
XT 3:= 40; yl := 13) @k20  -— Ge ee 
field type := eval; eval function := 
valid scenario filename; 
end 
end; 
begin 


set_up fields; 

Save screen; 

clear area (2,4,739,722)), 

draw window (1,3,80,23, white, blue, ’New Scenario’); 
display edit screen help line; 

edit_screen (number_of_ fields, field_list, not 
abort_allowed) ; 

get_new_scenario_ filename := upper case 
(field) list (1), stravalpe 

restore screen 

end; 


(KAKA KEKE KK KKKEKEKKEKKKEEKKEKKKKKEKKKKKKKKS ) 


{ 
Procedure name : INITIALIZE_NEW_SCENARIO 


Purpose : this procedure initializes the new 
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scenario by assigning a default header to the 
scenario and creating the files to hold the 
node and path data. 


Parameters : none. 


Called by : INITIALIZE NEW_GAME_ VARIABLES 


(KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE) 
procedure initialize new_scenario; 


var 
oer : dirstr; 
name : namestr; 
ext : extstr; 
begin 
scenario info := default scenario info; 


save_scenario_to_disk; 
fsplit (scenario file name, dir, name, ext); 


node data_filename := dir + name + node data _filename_ext; 
path data filename := dir + name + path data_filename_ext; 
node_index filename := dir + name + node_index_filename_ext; 
path_index filename := dir + name + path_index filename_ext; 


tacreate (nodes, node data filename, sizeof (node_record), 
node index filename, sizeof (string_5) 
)i 


tacreate (paths, path_data_ filename, sizeof (path_record), 
path_index filename, sizeof (string_5) ) 


end; 


(RAAKAKKKAKKKRKEKKKKKEKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKS) 


{ 
Procedure name : NETWORK UTILITY 


Purpose : this procedure allows the user to 
get information about the network he has 
created. It includes determining min time and 
Min distance routes between selected nodes. 


Parameters : none. 


Called by : VIEW SCENARIO 
PLAY WARGAME 


(ERA KAKEAKKKKKKKKKKKKKEKEKKKKKEKEKKKEKEKKKKKEKEKKEKER ) 
procedure network utility; 
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begin 
end; 


(KERR KKK KKK KKK KEKE KEKE ERR RKEKEEKEKRKEKKEKKEKEKEKEKER ) 


{ 
Procedure name : VIEW _SCENARIO 


Purpose : this procedure allows the player to 
view, change, or print the game scenario for 
the game. It presents the player with a menu 
to select the scenario header, the node data, 
or the path data. It also allows him to use 
the network utility from here. 


Parameters : none. 


Called by : INITIALIZE NEW_GAME 
CHANGE PARAMETERS 


(KAKA KEKE KEKE EKER EEE KR EREREREKEEEKEKEKKKES ) 
procedure view scenario; 


var 
choice : integer; 


(KHKKKKKKKKKKKKEKK KEKE KEE KEKE KKKEKEKEEKKEKKKKEEKEEE ) 


{ 
Procedure name : UPDATE SCENARIO INFORMATION 


Purpose : this procedure allows the player to 
view, change, or print the scenario header 
information for the current scenario. 

Parameters : none. 


Called by : VIEW SCENARIO 


(AAA KKKKKKKKEKKEKEKEKEKEKKKKKEKKKKKKKKEKKEKKEKKEEKKKKKKEKKKS ) 
procedure update scenario information; 


(KARR KKKKKKEKKKEKEKKEKKEKEKEKEKEKKKKKEKKKKKKKEKKEKEKKKERKKS ) 


{ 
Procedure name =) SE iRUPsr LES 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
scenario header information. 

Parameters : none. 


Called by : UPDATE _SCENARIO INFORMATION 


178 


(KKK KH KEKAK KEKE KK KEKE EKKEKKKE KKK KKEKKKEKKKEKEKKEKKEKE ) 
procedure set_up fields; 


begin 
number of fields := 14; 
fith field list[1]*do 
begin 
label string := ’OPORD # :/’; 


Mabel x := ll; label y := 6; 
str val := scenario_info.opord_number; 


pees = 22; Yl 3:= GF X2 := 317 y2 := 6; 
field type := strg 
end; 
with field_list[2] do 
begin 
label_string := ’OPORD Date :’; 
Bape! xX := 11; label _ y := 7; 
str_val := scenario_info.opord_date; 
mies —- 257 Yl t= 77; X2 := 397 y2 := 73 
field type := strg 
end; 
with field list[{3] do 
begin 
label string := ‘Map sheets :’; 
label _ x := 11; label_y := 8; 
str_val := scenario _info.map_ sheets; 
Ps 25; Yl := 8 X2 := 703; y2 := 8; 
field type := strg 
end; 
with field list[4] do 
begin 
label_ string := ’Game start time (DTG) :’; 
label _x := 11; label _y := 9; 
Sereval := scenario info.start_ dtg; 
foe S67 yl := OF x2 3:= 503; y2 := 9; 
field type := dtg 
mG ; 
with field list[5] do 
begin 
Mabel string := ‘Admin note ;’; 
label _ x := 11; label_y := 11; 
str_val := scenario_info.admin_notes[1}; 
me 29; Yl := 113; x2 := 70; y2 := 11; 
field _ type := strg 
end; 
with field list[6} do 
begin 
label string := null_string; 
label _x := 1; label_y := 13; 
Str_val := scenario_info.admin_notes[2}; 
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X1 3:= ll; yl 3= 22) 32 o 
field type := strg 
end; 

with field list[7] do 
begin 
label string := null_string; 
label x := 1; label_y := 1; 


y2 :;= 123 


str_val := scenario_info.admin_notes[3]; 


X21 := 117; yl := 137 x2 3= 707 eye 
field type := strg 
end; 
with field _ list[(8] do 
begin 
label _ string := null_string; 
label x := 1; label_y := 1; 
str val := scenario_info.admin_notes[4]; 
X1 := 117; yl 3:= 147 x2 := 7O7 y2 := 14; 
field type := strg 
end; 
with field list[9] do 
begin 
label string := null_string; 
Fabe box i=.) eel aoe ae 
str val := scenario_info.admin_notes[5]; 
Xl s:= 11; yl := 15; x2 := FOZ. 
field type := strg 
end; 
with field _list[10]}] do 
begin 
label _ string := null_ string; 
label_x := 1; label_y := 1; 
str_val := scenario_info.admin_notes[6]; 
X1 := 11; yl := 16; x2 := 70; y2 := 16; 
field type := strg 
end; 
with field list[11] do 
begin 
label _ string := null_string; 
label _ x := 1; VPabelsy =a 
str_val := scenario_info.admin_notes[7]; 
Xl := ll; yl 3= 17; XZ := Gy ae 
field type := strg 
end; 
with field _list[12] do 
begin 
label string := null string; 
labély x := 1; labelwy <:= 1; 
str_val := scenario_info.admin_notes[8]; 
X1 := 11; yl := 187 xX2 i= 707 yo 
field type := strg 
end; 
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Prteh faeld list[13] do 


begin 
label string := null_string; 
label x := 1; label_y := 1; 


str val := scenario_info.admin_notes[9]; 
Poe ls yl s—= 197 x2 3s= 70; y2 := 19; 
field type := strg 


end; 
with field list[14] do 
begin 
label string := null_string; 


label x := 1; label_y := 1; 
str_val := scenario_info.admin_notes[10]; 


X1 s= 11; yl := 207; xX2 := 70; y2 := 20; 
field type := strg 
end 

end; 

begin 


set _up fields; 

save _ screen; 

Srear area (2,4,79,22); 

display edit _screen_help line; 

edit screen (number_of_fields, field_list, not 
abort_allowed) ; 

with scenario _ info do 


begin 

opord number Seeletamlist|?).str val; 
opord date = field _list[2].str_val; 
map sheets = field list[3].str_val; 
start dtg = field list[4].str_val; 


game_ start _dtg := start _dtg; 
dtg to datetime (game_ start _dtg, game_start_time) ; 
game_dtg := game_start_dtg; 
game _time := game_start_time; 
admin_notes[1] := field list[5]).str_val; 
admin_notes[2] field list[6].str_val; 
admin _notes[3] field list[{7]).str_val; 
admin _notes([4] field list[(8]).str_val; 
admin _notes[5] field _list[{9].str_val; 
admin_notes[6] field list[10}.str_val; 
admin _notes[7] Pietamlistilr).str val; 
admin _notes[8] field list[{12].str_val; 
admin_notes[9] Pielaelistyi3).str val; 
admin notes[10}] field list[14].str_val 
end; 

Save scenario to disk; 

BescoOre screen 

end; 


(AAA KKK KKK KEK KEKE EKEKK KKK ERK KKKKKKKKS ) 
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{ 
Procedure name : UPDATE NODE SPAT 


Purpose : this procedure allows the player to 
view, change, or print the node data that is 
part of the current scenario. 


Parameters : none. 


Called by : VIEW SCENARIO 


(KAKA KKK KKK KKK KKK KKK KKK KEKE KE KEKEKEEKEEEKEEKEKKKKKKKKKKE ) 
procedure update node data; 


var 
current node : node record; 
current node name : string5; 


(KEK KKH KKK KKK KKK KKK KKEK KEKE KKK KK EKKEKKKKKKKEKE ) 


{ 
Procedure name :; INITIALIZE NODES PE EE. 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
NOeGewmcatdar. 

Parameters : none. 


Called by : UPDATE NODE DATA 


(ERK KK KK KKK KKK KEK KEKE KKK KKK KEKKEKKKKKKKKKAKKKEEKE ) 
procedure initialize nodemt tele, 


begin 
number of fields := 11; 
With fleddilacstimeitecde 
begin 
label string := ’Node name :’; 
label_x := 15; #iWlabelay a. 
X11 := 28; yl i= 7) X20 .—832) eK, 
field type := strg 
end; 
With,field list{2imde 
begin 
label string := ’Associated paths :’; 
label _x := 15; label yao; 
X1 := 36; yl := 97 xK2 := 40; “Y25.—e 
field type := strg 
end; 
With field lis€/ 3ijmide 
begin 
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label string := null_string; 


label _ x := 15; label_y := 9; 
X1 := 43; yl := 9; x2 := 47; y2 := Y; 
field type := strg 
end; 
with field _list[4] do 
begin 
label string := null_string; 


label_x := 15; label_y := 9; 
peee= 50; Yl := Gime x2 s= 54; ye := 9; 
field_ type := strg 


end; 
with field list[5] do 
begin 
label string := null_string; 
label x := 15; label_y := 10; 
X1 := 36; yl := 10; x2 := 40; y2 := 10; 
field type := strg 
end; 
with field list[6] do 
begin 
label string := null_string; 
label x := 15; label_y := 10; 
Xl 3:= 43; yl := 107; x2 3= 47; y2 := 10; 
field type := strg 
end; 
waeery field list[7] do 
begin 
label string := null_string; 
Mabel x :=> 15; label_y := 10; 
meee 50; Yl := 107 x2 := 547 ye := 10; 
field type := strg 
end; 
with field list[8] do 
begin 
ihabel string := ‘Location (grid) :’; 
Mel xX := 15; label ye:= 22; 
Meee 507 Yl := 127; xX2 := 597 y2 := 12; 
field type := strg 
end; 
with field list[9] do 
begin 
label _ string := ’Position type (Rural/Urban) :’; 
label x := 15; label_y := 14; 
X1 := 58; yl := 147; x2 := 58; y2 := 14; 
field_type := ch; valid _char_set := [’R’,’U’] 
end; 
with field list[10] do 
begin 
label string := ’Cover and concealment (High/Medium/ Low) 


eo 7 
a f 
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label x := 15; label y :— 2c, 


X11 := 58; yl := 16; xZ := 58; y2 2= IG, 
field _ type := ch; valid_char_set := [’H’,’M’,’L’] 
end; 

with field list[11] do 
begin 


label string := ’Prepositioned ammo count (rounds) :/; 
label x := 15; label_y := 18; 


X1 := 58; yl := 187 x2 := 61; y2 := 18; 

field type := int; int_min_value := 0; int_max_value := 
maxint 

end 
end; 


(KKK KKK KKK KKK KKK KKKKK KKK HEKEKEKKKKKEKKKKK KK KKKKKKK ) 


{ 
Procedure name : DISPLAY NODE DATA 


Purpose : this procedure uses the data that 
describes the fields for displaying the 
node data and uses it to display a node’s data. 


Parameters : NODE DATA - record containing the 
data for the node to be displayed. 


Called by : UPDATE NODE DATA 
} 


(KaAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKKKKK ) 
procedure display node data (node data : node record); 


var 
i ee anteger, 

begin 

with node data do 
begin 
field_list[{1].str_val := node_name; 
field list(2]*stri vals =spach= (lay 
field list[(3].str_val := paths[2]; 
field list(4].str_val := paths([3]); 
field list(S].strival™:— paene (aa 
field_list[6].str_val := paths[5]; 
field_list[(7].str_val := paths[6); 
field_list(8].str_val := grid; 


field_list[(9].str_ val position type; 
field list (io). ces “val >= cover concealment; 
str (ammo count, field list{1l) %stcuvaus 
end; 
for 1. :=— 1 to number jot stielderde 
with field list[i] do 
begin 
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put string (label_x, label_y, label_string); 
ue sthing (xl, yljestr val) 
end 

end; 


(eK KKK KKK KEK EKER KEKE ERE KER ERK KK EKER EK KEKE ) 


Procedure name : EDIT NODE SCREEN 


Purpose : this procedure uses the data that 
describes the fields for displaying the 
node data and uses it to display a node’s data 
and allow it to be changed. 


Parameters : NODE DATA - record containing the 
data for the node to be displayed. 
NEW RECORD - boolean record indicating whether 
a new node is being entered or an existing one 
is being modified. 


Called by : EDIT NODE 


(RAK KKKKKKKKK KEKE KEKKK KEKE KEKE KKK EKEKEKEKKEKKREKKKKKEEE ) 


procedure edit node screen (var node data : node record; 
new_record : boolean); 


var 
temporary field : field record; 
error code : integer; 
1 : integer; 

begin 


save _ screen; 
if new_record then 

display _add_record help line 
else 

display edit screen help line; 
miedr area (2,6,79,22); 
mmear area (1,24,80,24); 
with node data do 

begin 


meeld list(1]).str_ val node_name; 


field list[{2}].str val := paths[1]; 
feeld list(3].str_val := paths[(2)}; 
field_list(4)}).str_val := paths[3]; 
field list[(5).str_ val := paths[4]; 
field _list[6]).str val := paths[5}; 
field list(7}.str_ val := paths[6]; 
meld list(8).str val :="grid; 


field list(9}.str val position type; 
meld list(10]).str _val. s= Cover concealment; 
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str (ammo_count, field _list[({11l]}).str_val) 
end; 
if new_record then 


edit screen (number of fields, field_list, abort_allowed) 


else 

begin 

with t#eldelist (ismmac 
begin 
put string (label x, label_y, label_string); 
put _ string (xX, yYijsereva 
end; 

temporary field := field _list[1]; 

for i := 2 to number of fields do 
field liste ise ide? =me1elidmlvs came 


decr (number of fields); 

edit screen (number of fields, field_list, not 
abort_allowed) ; 

incr (number of fields); 


for i := number_of_ fields downto 2 do 
field list[i] <= field lyst(a — eae 

field list[{1] := temporary field 
end; 

with node data do 
begin 
node name := upper case (field 1ist[1].str_val); 
paths{1] := upper Case (field Vist[2] stemware 
paths[2] := upper case (field list[3].str_val); 
paths[3] := upper case (field _1list[4].str_val); 
paths[4] := upper _case (field _list[5].str_val); 
paths(5] := upper case (field list[6].str_val); 
paths[(6] := upper case (field list[7].str_val); 
grid := field list 38 |. orreoue: 
position type := field listo str val[iF 
cover concealment := field list[10].str_val[1]; 
val (field_list[({11]}.str_val, ammo_count, error_code) 
end; 

restone ccreen 


end; 


(KK RRR KKK KKK KKK KKK KK KKK KKK KE KKKKKKKKKKKKKKKKKEK)/ 


{ 
Procedure name : GET #iRST NODE 


Purpose : this procedure retrieves the first node 
from the current scenario node file. 


Parameters :; NODE_DATA - récerd ceontamming the 
data for the node being retrieved. 
CURRENT _NODE_NAME - string containing the name 
of the node being retrieved. 
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Called by : UPDATE _NODE DATA 


(HK KK KH HK KH KKK HIKARI KHAKI K KKK KAKA KEKE KE KKK KKK ) 


procedure get first node (var current_node : node_record; 
var current node name : string5); 


begin 
tareset (nodes); 


tanext (nodes, current_node, current_node_name) ; 
if not ok then 


current node name := null_string 
end; 


(kk kk kK KH KK KKK KKK KKK KKK KEKE EAE KK KKK KKK KS ) 


{ 
Procedure name : GET NEXT _NODE 


Purpose : this procedure retrieves the next node 
from the current scenario node file. 


Parameters : NODE DATA - record containing the 
data for the node being retrieved. 
CURRENT _ NODE NAME - string containing the name 
of the node being retrieved. 


Called by : UPDATE NODE DATA 


(KAAKKKKKAKKKAKKKHKKKKKKKEKKKKAKKKKK KK KKK KK KKK KK KKK ) 
procedure get _next_node (var current node : node record; 
var current_node_ name : string5); 


begin 
tanext (nodes, current_node, current node name); 
meemot ok then 
begin 
tanext (nodes, current_node, current_node_ name) ; 
ifmenot ok then 


current_node name := null _ string 
emcl 
end; 


(RK RK KKK KKK KKK KKK KK KK KEKE KKK KKK KKK AK KKK KE KEK ) 
{ 
Procedure name : GET PREV NODE 


Purpose : this procedure retrieves the previous 
node from the current scenario node file. 


Bamameters : NODE DATA.- record containing the 
data for the node being retrieved. 
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CURRENT NODE NAME - string containing the name 
of the node being retrieved. 


Called by : UPDATE NODE DATA 
} 


(HK KKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKEKS ) 


procedure get _prev_node (var current_node : node record; 
var current_node_ name : string5); 


begin 
taprev (nodes, current_node, current_node_ name) ; 
if nO@Eok then 
begin 
taprev (nodes, current_node, current_node_ name) ; 
if not ok then 
current node name := null_string 
end 
end; 


(KKK KAKA K KKK KKK KKK KKK KEK KKK KEEKEKEKEKEKK KK KKKEKX )/ 


{ 
Procedure name : ADD_NODE 


Purpose : this procedure adds new node record to 
the current scenario node file. 


Parameters : CURRENT _NODE - record containing the 
data for the node being added. 
CURRENT NODE NAME - string containing the name 
of the node being added. 


Called by : UPDATE _NODE_ DATA 
} 


(ARK KKK KKHKAK KKK KKK KKK KKK KKKKEKEKKEKK KKK KEK KEKE) 
procedure add node (var current mode > nodemreceuc: 


var current _node_ name : string5); 

var 

node data : node réecema, 

done : boolean; 
begin 
done := false; 
node data := default nede; 
repeat 


edit_node_screen (node data, add_record) ; 
if (key = £2) and (node data.node name <> null_string) 
then 
begin 
tainsert (nodes, node data, node data.node_name) ; 
if not ok then 
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display _error_message (’RECORD ERROR’, 
null _ string, ’a node 


already exists’, 
‘with this name’, 


null _ string) 


ese 
begin 
taread (nodes, node data, node_data.node_name, 
exactmatch) ; 
current node := node_ data; 


current_node_name := current_node.node_name; 
taflush (nodes) ; 
done := true 
end 
end 
else if (key = f2) and (node_data.node_name = 
null string) then 
display error _message (’RECORD ERROR’, 
null _ string, ‘node must have a 
name’, 
‘before it can be saved’, 
null _ string ) 
else 
done := true 
until done; 
key := null 
end; 


(KHER KKKKKKKKKKKKKK KEKE EKER KKKEREKEKEREKER | 


{ 
meecedure name ; DELETE NODE 


Purpose : this procedure deletes a node record 
from the current scenario node file. 


Pemamecers : CURRENT NODE - record containing the 
data for the node being deleted. 
CURRENT _NODE NAME - string containing the name 
of the node being deleted. 


Called by : UPDATE NODE DATA 


(RAAKAKKKKKKKKKKKKKKKKKKEKEKKEKEKEKKEKKKKKKKKK KKK KKK) 


procedure delete node (var current _node : node_record; 
var current node name : string5); 


var 
next_node : node _ record; 
next_node_name : string5; 


(KKK KKK KKK KKK KEK KEK EK KKK KEKE KEKE REKKEKKEE ) 


EGS 


{ 


Procedure name : VERIFY 


Purpose : this procedure prompts the player for 
a yes or no to verify the action that he last 
selected. 


Parameters : none. 


Called by : DELETE_NODE 


(EEK KKKKKKK KKK KEKE EEKREEEEEEREREEKERKEKKKKKEE ) 
function verify : boolean; 


var 
number of fields : integer; 
field list : field array; 


begin 

number of fields := 1; 

with field _list[1] do 
begin 
label _ string := ‘Are you sure (Y/N) ?7; 
label x := 28; label y := 12; 
Str val 22°°N@] 
X1 := 507 yl s:= 12; “x2 :— 30; \2 4 
field _ type := ch; valid char _set := [’Y’,’N’]; 
end; 


save screen; 

draw window (21,10,60,14, blue, lightgray, null_string); 
shade window (21,10,60,14, black); 

edit screen (number of fields, field list, not 

abort allowed); 

verify := field _list([1]-.str val[a)— "i 

key := null; 

BCSeOb@enoceseel 

end; 


begin 
if (current_node name <> null _ string) and verify then 
begin 
get_next_node (next_node, next_node_ name); 
tadelete (nodes, current_node_name) ; 
taread (nodes, current_node, next_node_name, exactmatch); 


if ok then 
current_node_name := current_node.node_name 
else 
current_node_name := null_string; 
taflush (nodes) 
end 
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end; 


(KEKE KE KKK KKK KKK KEKE KKK KEKE KK KKEKEKKKEKESE ) 


{ 
Procedure name : EDIT_NODE 


Purpose : this procedure allows the player to 
edit a node in the current scenario node file. 


Parameters : CURRENT NODE - record containing the 
data for the node being edited. 
CURRENT NODE NAME - string containing the name 
of the node being edited. 


Called by : UPDATE_NODE DATA 


(KKK KAKA KAKA KAA KEKE KKKKEKKEKK KKK | 


procedure edit node (var current_node : node_record; 
var current node name : string5); 


begin 

edit node screen (current_node, edit record) ; 

Taupdate (nodes, current _node, current_node.node_name) ; 
taflush (nodes) ; 

key := null 

end; 


(KKK KKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKE) 


{ 
Procedure name : FIND NODE 


Purpose : this procedure allows the player to 
find a node in the current scenario node file. 


Parameters : CURRENT_NODE - record containing the 
data for the node being searched for. 
CURRENT_NODE_NAME - string containing the name 
of the node being searched for. 


Called by : UPDATE NODE DATA 
} 


(RAK KEKE KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE )/ 
procedure find_node (var current node : node _ record; 
var current node name : string5) ; 


var 
node’ data : node record; 
Search string : string5; 


(KAKA KAKA KKK KKK KKK KKK KKKKKKKEKKKKKKKKKKKKKKK KK) 


{ 


rou 


Procedure name : GET SEARCH STRING 


Purpose : this procedure prompts the player for 
the name of the node that he wants to find. 


Parameters : none. 


Called by : FIND_NODE 


(KAKKKKKKKKK KK KKK KEKE KEKE KKKKKKKKKKKKEKEKEERE ) 
function get search string : string5; 


var 
number of fields : integer; 
field_list : field_array; 


begin 
number of fields := 1; 
with field list[{1] do 
begin 
label string := ’Node to search for :’; 
label _ x :>= 267) Vabel gece 
str_val := null_string; 
X1 3= "387 “yi := 12359 x2 := 32, y2e-— 
field type := strg; 
end; 


save _ screen; 
Gdraw window (21,10,60,14, blue, lightgray, null sStminee 
shade window (21,10,60,14, black); 

edit screen (number of fields, field list, not 
abort_allowed) ; 


get_search_string := upper _case (field_list[1].str_val); 
key := null; 
restore screen 
end; 
begin 
search_string := get_search_string; 
if search string <> null_string then 
begin 
taread (nodes, node data, search_string, partialmatch) ; 
if ok then 
begin 
current_node := node _ data; 
current_node_name := current node. nodemaane 
end 
end 
end; 
begin 


initialize node fields; 


LO? 


Save screen; 
mpear area (2,4,79,22); 
display edit _list_help line; 
memeem text (24, ‘Page Up - next node Page Down - 
previous node’, red); 
center text (5, ‘Node data’, cyan); 
get_first_node (current_node, current_node_name) ; 
repeat 
Save _ screen; 
Clear_area (2,6,79,22); 
if current_node_name <> null_string then 
display node data (current_node) 
else 
center text (14, ‘There are currently no nodes in the 
database’, white); 
key := get_key; 
case key of 


home_key : get_first_node (current_node, 
current _node_name) ; 
page_up > Get next nede (current node, 


current_node_name) ; 
page_down : get_prev_node (current_node, 
current_node_ name) ; 


£4 > print screen; 

5 >; add_node (current node, 
current_node_name) ; 

£6 ; delete node (current_node, 
Current _node_name) ; 

t7 ; edit_node (current_node, 
Sarrent node name); 

£8 : find_node (current node, 
current_node_ name) 


end; 

restore screen 
until key = escape; 
restore screen 
end; 


(RRA KK RK KK KK RK KKK KK KEK KERR KEKE KKK KA KKK KEK KK KK) 


{ 
Procedure name : UPDATE_PATH DATA 


Purpose : this procedure allows the player to 
View, change, or print the path data that is 
part of the current scenario. 

Parameters : none. 

Called by : VIEW SCENARIO 

} 


(FR RR RI Ok KK ) 


198 


procedure update path data; 


var 
current_path : path_record; 
current path_name : string5; 


(KERR KKK KKK KKK KK REKEKKEKKKEKREKRKEKEKKKKKKKKKKKKKKE) 


{ 
Procedure name : INITIALIZE PATH FIELDS 


Purpose : this procedure initializes the data 
that describes the fields for displaying the 
pathuaaca. 

Parameters : none. 


Called by : UPDATE _PATH_DATA 


(KAKA KRKEKRKKKKEKEKE KKK EEK KEE KEKE RE KEEKEKEKKKERKKEKKKKKEEEEE ) 
procedure initialize path_ fields; 


begin 
number of fields := 8; 
with field_list[1]} do 
begin 
label string := ’Path name 373 
label x := 15; label y := 6; 
X1 3:= 58; yl := 6G; x2 3:= 623 Ya "3= 
field type sworn 
end; 
With field list[{2] do 
begin 
label string := ’Start node :’; 
label_x := 15; label_y := 8; 
X1 := 58; yl i= 8; x2 3:= 6250) y2e— see 
field _ type := strg 
end; 
With field Mista jade 
begin 
label string := "End@mede = 
label xX := 15; label y :=—iGy 
X]1 := 58; yl := 107; x2 := 623 Y20 eee 
field type := strg 
end; 
with field list[4]} do 
begin 
label string := ’Length (kilometers) :/’; 
label x := 15; labelly =e 
X1 := 58; yl i= 12; xX2 := 63; YZ) ee 
field _ type := float; float _ min value {— 08g, 
float_max_value := 500.0 
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end; 
meen field list[5] do 


begin 
label string := ’Road condition (Poor/Medium/Good) :’; 
abel xX := 15; labeil™y:= 14; 
X1 := 58; yl := 147 x2 := 58; y2 := 14; 
field type := ch; valid_char_set := [’P’,’M’,’G’] 
end; 
with field list{6] do 
begin 
label string := ’Bridges on path (Yes/No) :’; 
mapel x :— 15; ™ label _y := 16, 
X1 := 58; yl := 16; x2 := 58; y2 := 16; 
field type := ch; valid_char_set := [’Y’,’N’] 
end; 
with field list[{7] do 
begin 
label string := ’Bridge location (grid) :’; 
Mabel X := 15; Ilabel_y := 18; 
ieee SG, Yl :—= 18; x2 := Ge Yy2 := 18; 
field type := strg 
end; 
with field list{8] do 
begin 
label string := ‘Vulnerability (High/Medium/Low) :’; 
label x := 15; label_y := 20; 
Peles 56; Yl := 207; X2 := 587 y2 := 20; 
Mretd type := ch; valid char set := [’H’,’M’,’L’] 
end 
end; 


(KARR KKK KKK KKKHAKKKKKKKKKKEKKKKKEKKKKKKKKKKEKKKKKKS ) 


{ 
Procedure name : DISPLAY PATH _DATA 


Purpose : this procedure uses the data that 
describes the fields for displaying the 
path data and uses it to display a path’s data. 


Parameters : PATH_DATA - record containing the 
data for the path to be displayed. 


Called by : UPDATE PATH DATA 


(RAK KK KKK KKK KKK KKK KKKKKKEKKKKKKKKKKKKKKKKK KKK) 
procedure display path _data (path data : path_record) ; 


var 
1 : integer; 


begin 
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with path_data do 
begin 
field_list[1]}.str_val 
field _list[(2}.str_val 


path_name; 
start_node; 


field list({3}.str_val := end_node; 
str (length:3:1, field_list[4].str_val); 
field list[5].str_val := road_condition; 


field list[6].str_val := bridge; 
field list[(7].str_val := bridge_grid; 


field list[8]}.str_val vulnerability 
end; 
for i := 1 to number of_fields do 
with field list[{i] do 
begin 


put_string (label_x, label_y, label_string) ; 
put string (xl, yl, Strival) 
end 

end; 


(FAK KKKKKKKKKKKKKKKKKKKKKEKKEKKEKKKKKKKKKEKKKKEKKKKKKS ) 


{ 
Procedure name : EDIT PATH SCREEN 


Purpose : this procedure uses the data that 
describes the fields for displaying the 
path data and uses it to display a path’s data 
and allow it to be changed. 


Parameters : PATH DATA - record containing the 
data for the path to be displayed. 
NEW RECORD - boolean record indicating whether 
a new path is being entered or an existing one 
is being modified. 


Called by : EDIT PATH 


(RAK KKKKEKKEKKKKEKKEKKEKEKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 


procedure edit path screen (var path _ data : path_record; 
new_record : boolean); 


var 
temporary field : field record; 
error code : integer; 
1 : integer; 

begin 


save screen; 
if new_record then 

display _add_record help line 
else 

display edit screen help line; 
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milear area (2,6,79,22); 
clear_area (1,24,80,24) ; 
with path_data do 


begin 

field list[1].str_val := path_name; 
field list[2].str_val := start_node; 
field list[3].str_val := end_node; 


str (length:3:1, field list[4].str_val); 
mreld list(~s).str_val road condition; 


field list[6].str_val := bridge; 
field list[7].str_val := bridge_grid; 
field list[8].str_val := vulnerability 


end; 


if new_record then 

edit screen (number _of fields, field_list, abort_allowed) 
else 

begin 

with field list[1] do 


begin 
put_string (label _ x, label_y, label_string) ; 
But String (xl, yl, str_val) 
end; 
temporary field := field list[1]; 
for i := 2 to number _ of fields do 
moeidslast( iy = 1) := field list[(1]; 
decr (number of fields); 
edit_screen (number of fields, field_list, not 


abort_allowed) ; 


timer (number of fields); 


for i := number of fields downto 2 do 
mreldwiast(i] := field list[i «.1]; 
field list[1] := temporary field 
end; 
with path data do 
begin 
path _ name >= upper case (field list[1].str_val); 
start node = upper_case (field list[2].str_val); 
end __ node s= upper case (field list[3].str_val); 


val (field_ list[4}. str_val, length, error_code) ; 
road_condition field list[5]-str_ val[lj; 


bridge meee delet 6 j.straval 1); 
bmldge grid = field list[{7].str_ val; 
vulnerability = field list[8].str_val[1] 
end; 


restore screen 
end; 


(KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK) 


{ 


meeceaure name : GET FIRST PATH 
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Purpose : this procedure retrieves the first path 
from the current scenario path file. 


Parameters : PATH DATA - record containing the 
data for the path being retrieved. 
CURRENT PATH NAME - string containing the name 
of the path being retrieved. 


Called by : UPDATE PATH_DATA 


(RHA KKKKKKEKKKKKEEKEEKEEKEEEKEKEEEEEEKEEEEKEKKEKKKKES ) 


procedure get first path (var current_path : path_record; 
var current_path_name : string5); 


begin 

tareset (paths); 

tanext (paths, current_path, current_path name); 
if not ok then 

current_path_name := null_string 

end; 


(KR KKKKKKAEKKKKEKKEKEKKEKKEKKEKKKKKKEKKKEKKKEKKKKKKEKKEKS ) 


{ 
Procedure name : GET NEXT PATH 


Purpose : this procedure retrieves the next path 
from the current scenario path file. 


Parameters : PATH DATA - record containing the 
Gata for the path being retrieved. 
CURRENT_PATH_NAME - string containing the name 
of the path being retrieved. 


Called by : UPDATE PATH DATA 


(KAKA KKKKKKKEKKEKKKKEKK KKK KKEKKKKEKKKKKEKEKKKKKKKKKKKKKSE / 


procedure get_next_path (var current path : path Tecoma 
var current _path_name : string5); 


begin 
tanext (paths, current path, ecumeentapaema mana 
if not ok then 
begin 
tanext (paths, current_path, current pathinancs 
if not ok then 
current_path_name := null_ string 
end 
end; 


(KAKA KKKKAKKKKKKKKEKKKKKKEKEKEKKKKKEKEKEKKKKKKKKKKKKKS ) 
¢ 
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{ 
Procedure name : GET _PREV_PATH 


Purpose : this procedure retrieves the previous 
path from the current scenario path file. 


Parameters : PATH DATA - record containing the 
Gata for the path being retrieved. 
CURRENT PATH_NAME - string containing the name 
of the path being retrieved. 


Called by : UPDATE_PATH_DATA 


(KAR KKKKKKKKKHKKEKKEKKKKKKEKKEKKEEKEKKEKEKEEKKKKEKKKKKKKKKKK) 


procedure get prev path (var current_path : path_record; 
var current _path_name : string5); 


begin 
taprev (paths, current_path, current_path_name) ; 
if not ok then 
begin 
taprev (paths, current_path, current _path_name) ; 
if not ok then 
current_path_name := null _ string 
end 
end; 


(AeKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KEKE) 


{ 
Procedure name : ADD PATH 


Purpose : this procedure adds new path record to 
the current scenario path file. 


Parameters : CURRENT PATH - record containing the 
data for the path being added. 
CURRENT PATH NAME - string containing the name 
of the path being added. 


Called by : UPDATE PATH DATA 
} 


(RRR ARK KEKE KEKE KK KEKE KKK K AAR KKAKKKK KKK  ) 


procedure add_path (var current path : path_record; 
var current path_name : string5); 


var 
path_data : path_record; 
done : boolean; 


begin 
done := false; 
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path data := default path; 
repeat 
edit path_screen (path _ data, add_record); 
if (key = £2) and (path data.path_ name <> null string) 
then 
begin 
tainsert (paths, path_data, path_data.path_ name) ; 
if not ok then 
display error_message (’RECORD ERROR’, 
null string, ’a path 
already exists’, 
‘with this name’, 
null string) 
else 
begin 
taread (paths, path_data, path data.path_ name, 
exactmatch) ; 


current path := path data; 
current path name := current_path.path name; 
taflush (paths); 
done := true 
end 
end 


else if (key = £2) and (path _data.path name = 
null _ string) then 
display _error_message (’RECORD ERROR’, 
null string, ‘path must have a 
name’, 
‘before it can be saved’, 
TG dees eraaaricy) 
else 
done := true 
until done; 
key := null 
end; 


(KKK KKKEKKEKKEKKKKKKKKKKEKEKKEKKKKKKEKKKKEKKEKKKKKKEKEKS) 


{ 
Procedure name - DELETE PArs 


Purpose : this procedure deletes a path record 
from the current scenario path file. 


Parameters : CURRENT PATH = record containing the 
data for the path being deleted. 
CURRENT_PATH_NAMC - string containing the name 
of the path being deleted. 

Called by : UPDATE PATH DATA 


(KEK KKKKKKKKK KK KK KEK KEKKKEKKKKKAKKEKKKKKKKKKK KKK KES ) 
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procedure delete path (var current_path : path_record; 
var current_path_name ;: string5) ; 


var 
next_path : path_record; 
next path _ name : string5; 


(RK KKKKA KEKE KKK KK KEKE KKK KEKE REE KERR KEKE ) 


{ 
Procedure name : VERIFY 


Purpose : this procedure prompts the player for 
a yes or no to verify the action that he last 
selected. 


Parameters : none. 


Called by : DELETE PATH 


(RAK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKEKER ) 
function verify : boolean; 


var 
number of fields : integer; 
meld list : field array; 


begin 

number of fields := 1; 

with field list[1]) do 
begin 
label string := ‘Are you sure (Y/N) ?7; 
label x := 28; Jlabel_y := 12; 
str_val := ‘N’; 
Bees = 20, Yl s= 127; xX2 3= 507; y2 := 12; 
field type := ch; valid char set := [’Y’,’N’]; 
end; 


Save _ screen; 

draw window (21,10,60,14, blue, lightgray, null_string); 
shade window (21,10,60,14, black); 

edit_screen (number of fields, field_list, not 
abort_allowed) ; 

verify := field list[{1}.str_val{1]} = ‘Y’; 

key := null; 

restore screen 

end; 


begin 

if (current_path_name <> null _ string) and verify then 
begin 
get_next_path (next_path, next_path_name) ; 
tadelete (paths, current _path_name) ; 
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taread (paths, current_path, next_path_name, exactmatch); 


if ok then 
current_path_name := current_path.path_name 
else 
current path name := null_string; 
taflush (paths) 
end 
end; 


(RAK KKKKKKK KEKE KKEKKEKKKEKKKEKKKKEKKK KKK KKEEKEEEEEKEERS | 


{ 
Procedure name : EDIT PATH 


Purpose : this procedure allows the player to 
edit a path in the current scenario path file. 


Parameters : CURRENT PATH - record containing the 
Gata for the path being edited. 
CURRENT PATH NAME - string containing the name 
of the path being edited. 


Called by : UPDATE PATH DATA 


(KA KKKAAK KAKA KEKERAKEKKEKEKKEKKKEKEKEKEKEKKK KKK KKKKKKEKX ) 


procedure edit _path (var current_path : path_record; 
var current_path_name : string5); 


begin 

edit_path_screen (current_path, edit record) ; 

taupdate (paths, current_path, current path.pathwnaneys 
taflush (paths) ; 

key := null 

end; 


(AA RKKKKKKKEKKKKEKEKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKES )/ 


{ 
Procedure name <= FiNDeearn 


Purpose : this procedure allows the player to 
find a path in the current scenario path file. 


Parameters : CURRENT PATH - record containingeen. 
Gata for the path being searched for. 
CURRENT_PATH_NAME - string containing the name 
of the path being searched for. 


Called by : UPDARE PATHS@DATA 
) 


(ARK KKK KAKA KKKKKKKKKKKKEKKKEKEKKKKKKKKKKKEKKKKKKKKKEKS) 
procedure find path (varcurrentlpath 7 pasner-eo da, 
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var current _path_name : string5); 


var 
path data : path_record; 
search string : string5; 


(RK K KKK KK KKK KKK KKK KEKE KEKE KEKE REKKEK EE ) 


{ 
Procedure name : GET SEARCH STRING 


Purpose : this procedure prompts the player for 
the name of the path that he wants to find. 


Parameters : none. 


Called by : FIND PATH 


(RA KKARKKKREKKKKKRKE KK RRR KKK EKKERKEKRKERKKEKKEKREKKS | 
function get search string : string5; 


var 
number of fields : integer; 
mield list : field array; 


begin 
number of fields := 1; 
Maen field list[1} do 
begin 
label string := ’Path to search for :’; 
label_x := 26; label_y := 12; 
Siemeval := null string; 
Bees — 46; Yl := 12; xX2 := 527 y2 := 12; 
field type := strg; 
end; 


save screen; 

draw_window (21,10,60,14, blue, lightgray, null_string); 
shade window (21,10,60,14, black); 

edit_screen (number_of fields, field list, not 
abort_allowed) ; 

get_search_string := upper case (field list[{1]}.str_val); 
key := null; 

restore screen 

end; 


begin 
search _string := get_search string; 
if search_string <> null_string then 
begin 
taread (paths, path_data, search string, partialmatch) ; 
1f ok then 
begin 
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current. path = paenee@ara, 
current_path_ name := Current pach. paeiegau 
end 
end 
end; 


begin 
initialize path_fields; 
Save_screen; 
Clear _ area (2,4,79,22); 
display edit_list_help line; 
center text (24, “Page Upe= nNexeapac. Page Down - 
previous path’, red); 
center text (5, ‘Path data’, cyan); 
get_first_path (current_path, current_path_name) ; 
repeat 
save screen; 
Clear amea (256772 220 
if current _path_name <> null _ string then 
display path data (current_path) 
else 
center text (14, ‘There are currently no paths in the 
database’, white); 
key := get key; 
case key of 


home_key : get_first_path (current_path, 
Current Ppachehame):, 
page up ; get next path “(currence paeuw 


CURE en ea pacimeianenjm, 
page down : get prev path (cur rlenempacar 
current path name); 
£4 Sy pPrimtrserecn, 
i : add_path (current path, 
current path_name) ; 
£6 [wocketesoaen (Current pany, 
current path name); 
for : edit path (CUrrent patchy 
current path name); 
£8 = ft Inde pacn (current_path, 
Cur pene spachemame) 
end; 
restore screen 
until key = escape; 
beSEGre oerEeen 
eng: 


begin 

Save screen; 

clear area (172780, 25.5 

draw window (1,3,80,23, white, blue, ‘Scenario / Network’); 
menu Xl := 25; 
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menu_yl := 7; 
menu_xX2 := 55; 
menu _y2 := 19; 
repeat 
choice := menu_selection (null_ string, ‘Scenario 


information| ’+ 
‘Node data ’+ 
‘Path data] ’+ 
‘Network 
Beality | 4+ 
‘Return\’); 
case choice of 
1 : update_scenario_information; 
2 : update node data; 
3 : update_path_data; 
4 network utility 


end 
until choice = 5; 
menu _x1 := menu_x1_ default; 
menu_yl := menu_yl default; 
menu_x2 := menu_x2_ default; 
menu_y2 := menu_y2_ default; 
fmeoeore screen 
end; 
begin 
amd . 


aa 
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(KERR KKKEKKKEK KEKE KKEKEKKEEEKEKEEKEKEKKEKEKEKEKEEKKE ) 


{ 
Unit name : TIMESTEP 


Purpose : this unit contains the procedures that 
conduct all of the actions that ocelr veaen 
time step. This includes incrementing the 
game time, processing the events list, firing 
rounds, and attriting forces. 


(RIKKI KK RIKKI KKK KI KIER KK ERK EK IAAI EK AAKEK) 
unit timestep; 


interface 


{$I-} 


uses crt, utility, gameutil, global, event, commands, 
taccess, tahigh; 


procedure check_for_start_of hostilities; 
procedure display sitrep; 

procedure process events list; 

procedure stock_atp; 

procedure process field trains; 

procedure process ammo trucks; 

procedure process fire units; 

procedure generate messages; 


implementation 


Cerner 
firelunic 
ammo truck 
Inspect elon 
under fire 
moving = 


e 
, 


ll 
Ne oO Fr © 


s 
‘ 
f 
a 
f 
° 
a 


(KK KKRKKKKKKKKKKKKKKKKK KK KKK KKK KKK KKKKKKKKKKKKKEK) 


{ 
Procedure name : ADD MESSAGE 


Purpose : this procedure adds a message to the 
message buffer file for display at a later time. 


Parameters : NEW _MESSAGE - message record to be 
added to the buffer. 


Called by : several procedures that generate 
messages throughout this unit. 


} 


(KEK KKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKES ) 
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procedure add _ message (new_message : message _ record) ; 


var 
record number : longint; 


begin 

addrec (messages, record_number, new_message) ; 
addkey (message type_index, record_number, 
new_message.message type) ; 

flushfile (messages) ; 

flushindex (message_type_index) 

end; 


(KKK KKKKKKKKKKK KKK KKK EKER KKK KK EKER KEEKEKKKKK RK KE) 


{ 
Procedure name : DELETE_MESSAGE 


Purpose : this procedure deletes a message from 
the message buffer after it has been displayed. 


Parameters : RECORD NUMBER - number of the record 
that corresponds to the message to be deleted. 


Called by : DISPLAY MESSAGES 


(KAA AKKKAKKKEKKEKKKEKEKKEKEKKEKEKKEKEKEKKKEKEKKKEKKKEKKEES ) 


procedure delete message (record number : longint); 
var 

message : message record; 
begin 


getrec (messages, record number, message) ; 
deletekey (message type index, record_number, 
message.message type) ; 

deleterec (messages, record number); 
flushfile (messages) ; 

flushindex (message type index) 

end; 


(REA KAAKARAKK KKK KKEKKKKEKKKKEKKEKKEEKKKEKKEKKEKKKKKKKKKKS ) 


{ 
Seeoceadure name ; CHECK FOR START OF HOSTILITIES 


Purpose : this procedure prompts the user for 
determining whether hostilities have commenced. 


Parameters : none. 


Called by : PLAY WARGAME 
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(AKER KKKKKEKKKEKKKEKKKEKKEEKKKKKKKKEKKKKKEKKKKEKKKKKKKKS | 
procedure check _for_ start_of hostilities; 


begin 
number of fields := 1; 
with field listjijmde 
begin 
label _ string := ’Commence hostilities (Yes/No) ?’; 
label x := 24; Jlabel_y := 13; 
= 'N’; 
x1 := 57; yl := 13; x2 := 357; ee 
field_ type := ch; valid_char_set := [’Y 
end; 
save screen; 
draw_window (18,11,63,15, white, blue, null_string) ; 
display _edit_screen_help_ line; 
edit screen (number of fields, field_list, not 
abort_allowed); 
hostilities started := field_list[1]).str_val[1] = ’Y’; 
TeStere sfCLeen 
end; 


(AAKKKKKEKKEKKEKKKKKE KEKE KKEKEKKEKKEKKEKKKKKEKKKKKKKEKKKE ) 


{ 
Procedure Maney.) ots elle oer 


Purpose : this procedure displays a sitrep for 
the player with information on the firing units, 
the battalion trains, and the ammo trucks. 


Parameters : none. 


Called by : GENERATE MESSAGES 
ISSUE COMMAND 


} 


(RAK KKKK KK KKK KEKKKKKKKKKKEKKKKKKKKKKKKKKKKK KKK KKKK ) 
procedure display sitrep; 


var 
number_of screens : integer; 
screen : integer; 


(RAK KKK KKK KK KK KKK KKKEKKEKKKKEKKKKKKKKKKK KKK KKK) 


{ 
Procedure name : DISPLAY FIRING UNIT SITREP 


Purpose : this procedure displays a sitrep for 
the fire unit passed as a parameter. 


Parameters : FIRING UNIT NUMBER —- numiber=oreune 
firing unit for which the sitrep will be 
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displayed. 


Called by : DISPLAY SITREP 


} 


(KKK KKHKKKHEHKAKKAKKKKAEKKKKEKKEEKKKKKKKKKKKKKKKKKE ) 
procedure display firing_unit_sitrep (firing_unit_number 


integer) ; 


var 


number string : string80; 


begin 
save_screen; 


with firing _units[{firing_unit_number] do 


begin 


center text (4, ’Firing Unit’, blue); 

‘Firing unit name : '’); 
Pir ingeunic Mame) ; 

if sections _in_operating_condition > 0.0 then 


Baie string (20, 6, 
Bee string (58, 6, 


begin 
put string (20, 
Puts string (58, 


7, 
7, 


Puc string (20, 8, 
str (rounds_on_hand, number string); 


butc string (58, 


8, 


BUe.String (20, 9, 
Buc String (58, 9, 


Bue String (20, 
Meettion : ’); 


0) 


mEOCatElOn.: 7) 4 
location) ; 
‘Rounds on hand : ’); 


number string) ; 

‘Ammo status : '’); 

ammo status) ; 

‘Rounds fired from current 


str (rounds fired _from_position, number string); 


Buc string (58, 
Buc String (20, 


Or 
dale 


number string) ; 
Time wnapeosition (hours) =: ’); 


str ((time_in_ position / 60):4:2, number string) ; 
but string (58, 11, number string) ; 


pute string (20, 
-) 


Na 


‘Firing sections still operating 


Str (sections in operating condition:4:2, 


number string) ; 
Buc string (58, 
mut string (20, 
Bot string (58, 
puc string (20, 
put string (58, 
end 
else 
center text (8, 
end; 
key := get_key; 
restore screen 
end; 


27 
13, 
ne 
eae 
14, 


number string) ; 
eScacus. io ".)% 
firing_status) ; 
“elmerability : °°); 
vulnerability status) 


‘'K I LLED’, blue) 
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(KAKA KEKE KEKE KKKKKKKKKKKEKEKKEKEKKKKKKKKKKS ) 


{ 
Procedure name : DISPLAY AMMO TRUCK_SITREP 


Purpose : this procedure displays a sitrep for 
the range of ammo trucks passed as parameters. 


Parameters : FIRST_TRUCK - number of the first 
truck to be displayed. 
LAST _ TRUCK - number of the last (Crucitog-— 
displayed. 


Called by : DISPLAY SITREP 
} 


(KEK KKKKK KK KKK KKK KEKE EERE EEK KEKE KKKKKEKKEKEEKE ) 


procedure display_ammo truck_sitrep (first_truck, last_truck 
integer) ; 


var 
truck : integer; 
percent =.sot a lncior 
begin 


save screen; 
center text (4, ‘Ammo Trucks’, blue); 
EeNnCer ECE (ce 


‘Bumper Convoy Mission Unis, te Full/ 
Location Effective’, blue); 
CeNnCOCRs Gexranaee, 

‘ F resupply empty 

% ‘, blue); 

Center ee xe mGer 

laaasnaee ~soSsS= — Seo ee ene 
-<<<s-="—" = aaa  Plue)e 
for truck := first truck /Gemlacmpemiciaas 

with ammo _trucks[truck] do 


begin 
put string (5, 9 + truck = fis eeerers 
bumper number) ; 
if not killed then 
begin 
put_string (15, 9 + truck = Girseee cue 
convoy _ name) ; 
put string (27, 9 + truck = first eruem 
mission assigned) ; 
put_string (37, 9 + truck = finse emia 
firing unit to resupply); 
put_string (49, 9 + truck = first trues 
load_status) ; 
put_string (58, 9 + truck - first truck, locationg® 


210 


str (effective _percent:4:2, percent) ; 
pelemecctring (70,95 + truck — tirst truck,,.percent) 
end 
else 
Puemorrings(22 9 teterueck - fLirststruck,=’K I LE 
Dy) 
end; 
key := get_key; 
restore screen 
end; 


(KA KKKKKKKKKKKKKKKKEKKEKKEKEKEEKKKKKKKKKKEKKEKKKKKKEKEE ) 


{ 
Procedure name : DISPLAY TRAINS _SITREP 


Purpose : this procedure displays a sitrep for 
the battalion trains. 


Parameters : none. 


Samtea by : DISPLAY SITREP 


(KAKKKHKKKKKKEKKKKKKEKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKS ) 
procedure display trains sitrep; 


begin 

save _ screen; 

center text (4, ‘Field Trains’, blue); 

center text (6, ‘Location : ‘’+ battalion _trains.location, 
blue) ; 

key := get key; 

PeeLOore screen 

end; 


begin 

Save_screen; 

Smear area (1,2,80,25); 

draw_window (1,2,80,25, blue, lightgray, ’SITREP’); 

Semcer Cext (23, ’page up - next screen page down - 
previous screen’, red); 

center text (24, ‘hit ESC when done viewing sitrep’, red); 
if number _of_ ammo trucks > 12 then 


number of screens := number _ of firing_units + 3 
else 

number of screens := number of firing units + 2; 
screen := 1; 
repeat 


if screen in [1..number of firing_units) then 
display firing_unit sitrep (screen) 

else if screen = number of firing units + 1 then 
display trains sitrep 


2 


else if screen = number of firing_units + 2 then 
begin 
if number_of_ammo_trucks < 12 then 
display_ammo_truck_sitrep (1, 
number of ammo trucks) 
else 
display _ammo_truck_sitrep (1, 12) 
end 
else 
display ammo _truck_sitrep (13, number _of_ammo trucks) ; 


if key = page _up then 


begin 
if screen = number of _ screens then 
screen := 1 
else 
incr (screen) 
end 
else if key = page down then 
begin 
if screen = 1 then 
screen := number of screens 
else 
decr (screen) 
end 


else if key = 113 shl 8 then 
check_event_list 
until key = escape; 
restore screen 
end; 


(KARA KAKA RARER KEK KERR EKER KKK RK KEKE KKEKKEKKEKS | 


{ 
Procedure name : AMOUNT OF ATTRITION 


Purpose : this procedure determines the rate of 
attrition of all units during the game based on 
the parameters passed. 


Parameters : UNIT_TYPE - indicates whether the 
unit’ to be attrited is a truck or fire lumi 
UNIT_NUMBER - indicates whieh fire ite son 
truck 1S to be attrited. 

UNIT POSTURE - indicates the current posture 
of the unit to be attrited. 


Called by : PROCESS FIELD TRAINS 
PROCESS AMMO TRUCKS 
PROCESS FIRE UNITS 


} 


(KAKA HAKKAR KKK AEKKKKKEKKKEKKKKKKK KKK K KAKA KK KEKE) 


Zale 


fanetion amount _of attrition (unit _ type : integer; 
unit _number : integer; 
unit posture : integer) 
real; 


type 
alpha array = array [fire_unit..ammo_truck] of 
array [in_position..moving] of real; 


const 
alpha_ air : alpha array 
m0000025), 


( (0.000005, 0.000005, 


(0.00001, 0.00001, 
0.000005) ); 
alpha_arty : alpha_array 
0.000002), 


( (0.000004, 0.000004, 


(0.000008, 0.000008, 
Meoo0004) ); 
var 
temp node : node record; 
temp_path : path_record; 
casualties per _ minute : real; 


function y air : integer; 


var 
y : integer; 


begin 

if day_time then 
fee= 2 

else 
wees 1; 


case unit posture of 
in_position, under fire 


begin 
with temp node do 
begin 
case position type of 
ee eV =v +2; 
PN ese yee f * ). 
end; 
case cover concealment of 
ey oc mey ey + 37 
MY s= YY te2; 
Hoey s- y + 1 
end 
end; 


meeunit type = fire unit then 
with firing_units[unit number] do 
begin 


2S 


case vulnerability status of 


"H’ | (a= yao, 
YM sve Oy eet 
Oe SY os ate 


end; 
if unit_posture = under fire then 
case firing status of 
A MEN? 
else 
y:i=ytil 
end 
end 
else 
with ammo trucks[{unit_ number] do 
begin 
case vulnerability status of 
Pole <8 Va 
i a tn 
1 ay, Valens 
end; 
if unit_posture = under fire then 
case moving of 
false : y 
true 3; y 
end 
eine 


t 


Vote oe 
Y +e 


end; 
moving 
with temp path do 
case vulnerability of 


TH et ee 
MY ay a ee 
ee a ee dl 
end 

end; 

y air :=y 

end, 

fUNCTION y Abe: Ineeceian 

var 

y ? #anteqer- 

begin 

Y Sa Yuval, 

y_ arty := y 

end; 

begin 


case unit _type of 
fire unit 
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begin 
PU pesture in Tinepesitt1on, under fire] then 
taread (nodes, temp_node, 
firing _units[{unit_number].location, 
exactmatch) 
else 
taread (paths, temp path, 
firing units{unit_number].location, 
exactmatch) ; 
with firing _units{unit_number] do 
casualties per_minute := 
sections _in_operating_condition * 
( (alpha_air [unit_type][unit_posture] * y_air) 


+ 
(alpha_arty [unit_type][unit_posture] * y_arty) 
) 
end; 
ammo_truck 
begin 
if unit posture in [in position, under fire] then 
taread (nodes, temp_node, 
ammo_trucks[unit_number].location, 
exactmatch) 
else 
taread (paths, temp path, 
ammo trucks[unit_ number].location, 
exactmatch) ; 
with ammo trucks[{unit_ number] do 
casualties per minute := effective percent * 
( (alpha_air [unit _type][unit posture] * y air) 
+ 
falphagdrey [Umit cypel [unit posture), * y_arty) 
) 
end 
end; 
amount_of_ attrition := casualties per minute * 
game parameters.time step size 
end; 


(RAK KKK KKKKK KEKE KKKKK KKK KKK KKK) 


{ 
Beecedure name : PROCESS _EVENTS_LIST 


Purpose : this procedure reads events from the 
events list and determines if it is time to 
execute that particular event and does so if 
the time is current. 

Parameters : none. 


Called by : EXECUTE NEXT TIME STEP 


2 ARS 


(RR KKEKKEKKKKEKKEEKKKEKKKEKKKKKKKEKKEKKKEKKEKKKKKKKKKKKE) 
procedure process events list; 


var 
current dtq a sstringls, 
last_time_ to process : stringl0; 
next_time_key : stringl0; 
record number : longint; 
event : event_record; 


(KE KKKKKKKKKKKKEKKKEKKEKKKEKEEKKEKEKKEKEEKKEKKKKKKEKE ) 


{ 
Procedure name : UNIT_ALIVE 


Purpose : this procedure determines whether or 
not a unit is still alive before it processes 
an event record for that unit. 


Parameters : EVENT - event to be processed. 
Called by : PROCESS EVENTS LIST 
} 


(KAKA KKK KKKKEKKKEKKKKEKKKKEKKEEKKKEKKKKKKKKKKKKKKS ) 


function unit _ alive (event : event record): boolean; 
begin 
case event.unit type of 
‘T’ 2 Unitealives: —eenue. 
‘A’ :; with ammo_trucks[truck_ number (event.unit_name)] do 
unit_alive := not killed; 
‘F’ ; with firing units[{unit_ number (event.unit_name)] do 
unit_alive := (sections_in_operating_ condition > 
0.0) 
end 
end; 


(RRR KKKKKKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKEKKKKS) 


{ 
Procedure name : OCCUPY NODE 


Purpose : this procedure handles an occupy node 
event. 


Parameters : EVENT - event to be processed. 


Called by : PROCESS_EVENTS_LIST 
} 


(RAK KKKKKKKKKEKKKKKKKEKKKK KKK KKK KKK KK KKKKEKKEKKKKKKEKE) 
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procedure occupy node (event : event_record) ; 


begin 
case event.unit_ type of 
ar’ 6s 6hbegin 
battalion trains.location := event.node; 
battalion trains.moving := false 
end; 
‘A’ : with ammo trucks[truck_number (event.unit_name)] do 


begin 
location := event.node; 
moving := false 
end; 
‘F’ : with firing units[unit_number (event.unit_name)] do 


begin 
location := event.node; 
if rounds_on_hand > O then 
firing status := ’H’ 
else 
flrimngesctatus := °C’ 
end 
end 
end; 


(AKA K HHA KKK Aaa KKHKAKKKKKKKKEKKKKKKKKKKKKKKKKKKKK EK) 


{ 
Procedure name : TRANSIT NODE 


Purpose : this procedure handles a transit node 
event. 


Parameters : EVENT - event to be processed. 


Samed by : PROCESS EVENTS LIST 
} 


(RRR KKKKAKKKKKKKEKKEKKKKKKKKKKEKKKKKKK KKK KKK KKK KKK) 
procedure transit_node (event : event record); 


begin 
case event.unit type of 
‘T’ : battalion_trains.location := event.path; 
‘A’ : with ammo_trucks[truck_number (event.unit_name)] do 
location := event.path; 
‘F’ : with firing_units[unit_ number (event.unit_name)] do 
location := event.path 
end 
end; 


2g, 


(KAKKKKKKKKKKKKKEKKEKKEKKKKKKKKKKKEKKKKEKKKKKKKKKKKKES ) 


{ 
Procedure name : WAIT AT NODE 


Purpose : this procedure handles a wait at node 
event. 


Parameters : EVENT - event to be processed. 


Called by : PROCESS_EVENTS_LIST 
} 


(RAK KK KKK KKK KKK KK KKK KKEKKKEKEKEKKKEKKKKKKKKKKEKKKEKKKKE | 
procedure wait _at_node (event : event record) ; 


begin 
case event.unit type of 
‘T’ : battalion trains.location := event.node; 
‘A’ 3: with ammo_trucks[truck_number (event.unit_name)] do 
location := event.node; 
‘FP’ 3: with firing_units[unit_number (event.unit_name)] do 
location := event.node 
end 
eng, 


(KAA KK KKK KK KKK KKK KKKKKKEKKKKKKKKKKKKKKKKKKKKKKKEKE ) 


{ 
Procedure name : DEPART NODE 


Purpose : this procedure handles a depart node 
event. 
Parameters : EVENT - event to be processed. 


Called by : PROCESS EVENTS@iicr 
} 


(KARA KARKKKKEKKKKK KK KKK KK KKKKEKKKKKKKKKKKKEKKKKKEKE / 


procedure depart _node (event : event _record) ; 
var 

capacity : integer; 

temp node : node record; 


temp path 3 pakn Become, 


begin 
case event.unit_type of 
‘T’ :; with battalion eraamamae 
begin 
location := event.path; 


Za3 


time _in_ position := 0; 
vulnerability status := ‘A’; 


moving := true 
end; 
‘A’ : with ammo trucks[{truck_number (event.unit_name)] do 
begin 
location := event.path; 


taread (paths, temp_path, event.path, 
exactmatch) ; 
vulnerability status := temp _path.vulnerability; 


moving := true 
end; 
‘F’ ; with firing_units[unit number (event.unit_name)] do 


begin 
capacity := round 
(sections in _operating_condition * 
section_max_rounds_ capacity) ; 


if rounds_on_hand > capacity then 
begin 
taread (nodes, temp node, location, 


exactmatch) ; 
temp node.ammo_count ;= 
temp _node.ammo count + (rounds _on_hand - 
Gapacity) ; 
taupdate (nodes, temp node, location); 
taflush (nodes) ; 
rounds_on_ hand := capacity 
enc, 
location := event.path; 
time _in position := 0; 
rounds fired_from_position := 0; 
vulnerability status := ’A’; 
firing status := /M’ 
elie 
end 
end; 


(KE KKKEKKKKERKKKEKKKEKKKKKKKEKKKKKKKEKKEEKKEKKEEKKEKSE ) 


{ 


Procedure name : SHOOT 


Purpose : this procedure handles a shooting 
event. 


Parameters : EVENT - event to be processed. 
Calted by : PROCESS EVENTS LIST 
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(KEKE KAKKKKKKKKKKKKKKKKKKEKKKEKKKKKKEKKKKKKEEKEEKEKKS ) 
procedure shoot (event : event_record) ; 


(HAKKAR KKKEKKKKEKKEKEKEKEEKKEKKEKEEKKEEEEKEKREKEKKKKEKKEKKS | 


( 
Procedure name : DETERMINE AMMO STATUS 


Purpose : this procedure determines the units 
ammo status after the firing has occured. 


Parameters : UNIT NUMBER - unit that is firing 


Called by : SHOOT 


(RAK RK RRR RK EKER KEK IEAIR KIRKE IEEE EAE AEA ) 
procedure determine ammo status (unit _number : integer); 


begin 

with firing _units[unit_ number] do 
begin 
if rounds_on_hand <= 0 then 


ammo_status := ‘0’ 
else if rounds_on_hand > (0.35 * 
sections in operating condition * 
section _max_rounds capacity) 
then 
ammo status := ’S’ 
else if rounds_on_hand < (0.1 * 
sections _in_operating_ condition * 
section _max_rounds_ capacity) 


then 
ammo status := ’C’ 
else 
ammo status 3= ‘LL’ 
end 
end; 
begin 


if hostilities started then 
with firing_units[unit number (event.unit_name)] do 


if firing_status = ’H’ then 
begin 
rounds _on_hand := rounds_on_hand - 


round (event.volleys * 
sections_in_ operating condition) ; 
rounds_fired_from position := 
rounds _ fired from position + 
round (event.volleys * 
sections _in_operating condition) ; 
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determine ammo status (unit_number 
(event.unit_ name) ) 

end 
end; 


(ERK KK KKK HK HK KKK KKK KEKE EEE ER EKKKKEKEKKKKKKKK KKK) 


{ 
Procedure name : RETURN_FROM_ATP 


Purpose : this procedure handles a return from 
the atp event. 


Parameters : EVENT - event to be processed. 


Called by : PROCESS _EVENTS_LIST 


(RK KKK AK KK HKK KKK KK EEK KARE REKRKEKKKKKKKKKKRKKKEKKS ) 
procedure return _from_atp (event : event_record) ; 


var 
new_message : message _ record; 


(RAK KKAKAKKERKEKKKEKKKKEKKEKKKREKKKEKEKEKEKKEKEKKEKKES ) 


{ 
Procedure name : CREATE MESSAGE 


Purpose : this procedure creates a message and 
puts it in the buffer if a truck has returned 
from the atp and the trains have moved. 


Parameters : TRUCK_NUMBER - truck that has 
returned to trains location. 


Called by : RETURN FROM ATP 


(RARER KKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKSE ) 
procedure create_message (truck_number : integer); 


var 
new_message : message record; 
message : message _ record; 
mecord number : longint; 


message_exists : boolean; 
key : char; 

begin 

with ammo_trucks[truck_ number] do 
begin 
new_message.message type := ’8’; 
if convoy _name = null string then 

begin 
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he . 
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new_message.unit type 
new_message.unit name 
end 
else 
begin 
new_message.unit type := ’C’; 
new message.unit name := convoy_name 
end; 
new_message.location := location 
end; 
message exists := false; 
clearkey (message type index); 
key := ’87; 
nextkey (message type index, record number, key); 
while ok and not message_exists do 
begin 
getrec (messages, record number, message) ; 
if message.unit name = new _message.unit name then 


message exists := true; 
nextkey (message type _ index, record number, Key) 
end; 


if not message exists then 
add_message (new_message) 


end; 

begin 

with ammo trucks{truck_number (event.unit_name)] do 
begin 
location := event.node; 
moving := false; 


if atp rounds _on_hand >= round (ammo _ capacity * 
effective percent) then 
begin 
atp rounds on hand <= 
atp_ rounds _on_ hand - round (ammo capacity * 
effective percent) ; 
load status := ‘’F’ 
end; 
1f location <> battalion_trains.location then 
create message (truck _ number (event.unit_name) ) 
end 
end; 


begin 
current_dtg := game _dtg; 
last time to process := 

inc dtg to timekey 

(current _dtg, round (game _parameters.time_ step size / 

PL AB) eG 
Clearkey (time index) ; 
nextkey (time index, record number, next _time_ key); 


Zee 


while ok and (next_time_key <= last_time_to_process) do 
begin 
getrec (event_list, record_number, event); 
if unit_alive (event) then 
case event.event_type of 
‘0’ : occupy_node (event) ; 


‘T’ : transit node (event) ; 

‘W’ : wait_at_node (event) ; 

‘D’ : depart node (event) ; 

‘F’ 3: shoot (event); 

‘R’ ; return _from_atp (event) 
end; 


delete event (record_number) ; 
nextkey (time_index, record_number, next_time_key) 
end 

end; 


(RH KKKKKKK KEKE KEKE KKEKKEKKEKKEKEKKKKKKKKKKKKKKKKEKEKEKE ) 


{ 
Procedure name : STOCK _ATP 


Purpose : this procedure determines whether or 
not to restock the atp each time based on the 
start of a new day. 


Parameters : none. 


Called by : EXECUTE NEXT TIME STEP 


(RR ARKKK KKK KKK KKK KKKEKKEKKKKKEKKEKKEKKEKKEKKEKKKKKKEKKKE )/ 
procedure stock atp; 


var 
feral firing units : real; 
1 : integer; 


begin 
if new_day then 
begin 
meal firing units.:s= 0; 
fom i :— 1 to number of firing units do 
Egital firing units := toetalefiring units. + 
firing _units[i].sections in operating condition; 
atp_ rounds _on_hand := 
trunc (commanders_guidance.bn_ csr * 
Peeal fining units) 
end 
end; 


(ERK AK KK KKK KKK KK KKKKKAKKAKEEKKAKKK KKK RE K ER) 


{ 
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Procedure name : PROCESS FIELD TRAINS 


Purpose : this procedure checks the trains each 
time step to determine the vulnerability, if it 
is receiving incomming, and attrition ©f any 
trucks at the trains location. 


Parameters : none. 


Called by : EXECUTE NEXT TIME STEP 


(KKK Ka KKK KKK KAKA KEKE KEKKEKEEKKKKEKKKEEKKS ) 
procedure process field _trains; 


( & waa KK a KKK KKK KAKA AAA KK KK KKKAEKEKEES | 


{ 
Procedure name : DETERMINE VULNERABILTY LEVEL 


Purpose : this procedure checks the current 
level of vulnerability of the field trains based 
on time in posi tiem 


Parameters : none. 


Called by : PROCESS FIELD TRAINS 
} 


(KKK KKK AK KAKA KKKKKKKKKKKKKK KK KKK KKK KK KK KKK KK KK ) 
procedure determine vulnerability level; 


begin 

with: battallicnmtraincade 
begin 
if time_in_ position < 


round 
(commanders guidance.vulnerability threshold time * 60) then 


Vulnerabilityestatus: :— 2 
else if time_in_ position > 
reund 
(commanders guidance.vulnerability threshold time * 60) then 


vulnerabiPity Statvc= a 
else 1f time_in_ position > 
round 
(commanders guidance.vulnerability_threshold_time * 60 * 2) 
then 
vulnerability status := 97" 
end 
end; 


(KKK KKK KKK KKK KK KKKKKKKKEKKKKKKK KKK KK AKKKKKKKKKKKE )/ 
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Procedure name : CHECK FOR_INCOMING 


Purpose : this procedure checks the trains level 
of vulnerability to determine if they should 
receive enemy artillery fire. 


Parameters : none. 


Called by : PROCESS FIELD TRAINS 


(KKK KKK KK KKK KKK EKER KEK KER EKER KKKKKKKEKE SE ) 
procedure check_for_incoming; 


(ERK KK KKKKKKKKKKKKKK KKK KEKE KKK KKKKERKEKKEKEKEKE ) 


{ 
Procedure name : DISPLACE FOR_INCOMING 


Purpose : this procedure prompts the player to 
determine whether the trains and any trucks at 
that location should displace after receiving 
incoming. 


Parameters : none. 


Called by : CHECK FOR INCOMING 


(I TO I IO I IOI I TO Rk ak kk ke ) 
function displace _for_incoming : boolean; 


begin 
number of fields := 1; 
meme field list{1} do 
begin 
label string := ’Displace (Yes/No) ?’; 
Mabel x := 30; label_y := 20; 
str_val := ‘'N’; 
peer Ol, Yl := 207; X2 3:= 517 y2 := 20; 
fField_type := ch; valid char set := [’Y’,/‘N’} 
end; 


save_screen; 

draw_window (10,15,71,23, blue, lightgray, null_string); 
center text (17, ‘Battalion trains are receiving incoming 
Gmemilery fire.’, blue); 

center text (18, ‘Request permission for emergency 
displacement.’, blue); 

edit_screen (number _of fields, field list, not 
abort_allowed) ; 


displace for_incoming := field list[1].str_val[1] = ’Y’; 
restore screen 
end; 
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(KKK KKK KEKE KEK KKREKEKEKKEKEKKEKKKEKEEKKKKKKKKKES ) 


{ 
Procedure name : DISPLACE TRAINS 


Purpose : this procedure creates the event 
records necessary to displace the trains and any 
trucks at the trains if desired by the player. 


Parameters : none. 


Called by : CHECK_FOR_INCOMING 


(RK KK KKK KKK KKK KEKE KEKE KEKKEKEKKEKEKEKKKKKKKK KE ) 
procedure displace trains; 


var 
i : integer; 
displace events: eventsrecord? 
current time :¥string15; 


begin 
with displace event do 
begin 
event type := ’0’; 
current _time := game _dtg; 
time key := inc_dtg_to timekey (current_time, 30); 
node := battalion _trains.location 
end; 
with battalion trains ac 
begin 
displace event.unit type 
displace event.unit name 
moving := true; 
time _in position := 0; 
vulnerability status := ’A’; 
add_event (displace_event) 
end; 
for 1 := 1 to number_of_ammo trucks do 
with ammo trucks[{i]} do 
1f (not killed) and (location = 
battalion trains. locatiomimethen 
begin 
displace _event.unit type 
displace _event.unit name 


Tee 
‘TRAIN? ; 


‘A? : 
bumper number; 


moving := true; 
add_event (displace_event) 
end 


end; 


(KE KKKKKKKKAKKKKEKKEKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKS ) 
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Procedure name : ASSESS CASUALTIES 

Purpose : this procedure eill assess casualties 
for any trucks at the trains location when they 
received the incoming artillery fire. 
Parameters : none. 


Called by : CHECK _FOR_INCOMING 


(EK KKKKKEKKKKKKKEKEKEK KEKE EERE EEEEEEEKEEKKEKKKKE ) 
procedure assess_ casualties; 


var 
1 : integer; 
begin 
for i := 1 to number _of_ammo_trucks do 


with ammo _trucks[i} do 
memenot Kalled) and (location = 
battalion trains.location) then 
begin 
vulnerability status := 
battalion _trains.vulnerability status; 
effective percent := effective _percent - 
AnoOUnemonedcerituen (ammo truck, 1, under fire); 


if effective percent < 0.0 then 
effective percent := 0.0 
end 
end; 


begin 
with battalion trains do 


if ((vulnerability status = ’C’) and (random < 0.05)) or 
((vulnerability status = ‘’H’) and (random < 0.01)) or 
((vulnerability status = ’A’) and (random < 0.005)) 
then 
begin 
if displace for incoming then 
displace trains; 
assess casualties 
end 
end; 


(HK KK HEA KEKE KEKE KKK KEKE KEKE KEKE EKEKKK KK KKKES ) 


{ 
Procedure name : PUT_VULNERABILITY MESSAGE 


Purpose : this procedure will put a message in 
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the buffer if the vulnerability of the trains has 
changed this time step. 


Parameters : none. 


Called by : PROCESS FIELD TRAINS 


(KARR KKKKKKKKKKKEEKRKRKEKEEEEER ERK EKEEKEEREKREKEKEKES ) 
procedure put vulnerability message; 


procedure create message; 


var 
new_message : message_record; 


begin 

with battalion _trains do 
begin 
new_message.message type := ’77; 
new_message.unit type := ‘T’; 
new_message.unit_ name := ‘TRAIN’; 


if vulnerability _high then 
new _message.vulnerability 
else 
new_message.vulnerability 
end; 
add _ message (new_message) 
end; 


‘HH’ 


Ce 


begin 
with battalion trains do 
case vulnerability status of 
‘A’ :; 1f vulnerability high or vulnerability cricmea 
then 
begin 
vulnerability high := false; 
vulnerability critical: = Galce 
end; 
‘H’ : if not vulnerability high then 
begin 
vulnerability crittieal, >— sealce, 
vulnerability_high := true; 
create message 
end; 
‘Cc’ : if not vulnerability, criticaienen 
begin 
vulnerability high := false; 
vulnerability critical == eure 
create message 
end 
ete! 
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end; 


begin 
if not battalion _trains.moving then 
with battalion trains do 
begin 
time in_position := time_in_position + 
game_parameters.time_step size; 
determine vulnerability_ level; 
if hostilities started then 
check_for_incoming; 
put_vulnerability_message 
end 
end; 


(KKK KKKKKKKKEKKKKKEEKKKKEKEKKEEKEKEKKKEKKEKKKKKKKKKKKS ) 


{ 
Procedure name : PROCESS AMMO TRUCKS 


Purpose : this procedure checks the trucks each 
time step to determine if they have completed a 
resupply mission, if they have sufficient rest, 
attrit them if moving, and update their stats. 


Parameters : none. 


Called by : EXECUTE NEXT TIME _STEP 


(ARAKKKKKKEKKKKKEKKKKEEKKEKKKEKKKEKEKKKKKKKKKKKKKKKKKKKE ) 
procedure process _ ammo trucks; 


(KAR AKKKAKKEKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKE ) 


{ 
Procedure name : ASSESS CASUALTIES 


Purpose : this procedure checks the trucks each 
time step to determine if they are moving and if 
so what attrition will be assessed to them. 
Parameters : none. 


Called by : PROCESS AMMO TRUCKS 


(RK KKK KKK KIRKE KKK K KEKE KEKE EK ) 
procedure assess casualties; 


var 
1 : integer; 
begin 
for 1 := 1 to number of _ ammo trucks do 
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with ammo trucks[i]} do 
1f (not killed) and moving then 
begin 
effective _ percent := effective percent - 
amount_of_attrition (ammo Emueiw, 
timestep.moving) ; 
if effective percent < 0.0 then 
effective percent := 0.0; 
killed := (effective_percent = 0.0) 
end 
end; 


(KKK KKKKKKKEKEKEEKEEKKEREREEKEKKEEEKEKRKK KKK RRR) 


{ 
Procedure name : CHECK FOR_RESUPPLY 


Purpose : this procedure checks the trucks each 
time step to determine if they have completed 
a resupply mission, either to a unit or toa 


node. If so, it creates a message to that 
effect. 
Parameters : none. 


Called by : PROCESS AMMO TRUCKS 


(KKK KKK KK KKK KEKE EKER KKK KKK KKK KKK KKK KK KK KKK EE ) 
procedure check_for_resupply; 
Var 

1 : integer; 

temp node : node record; 


procedure create message (message type =" Ccharje 


var 
new_message : message record; 
message : message_record; 
message exists : boolean; 
Key = “char; 
record numbers: slongime: 
begin 
With ammo _trucks[i]} do 
begin 
new_message.message type := message type; 
if convoy_name = null string then 


begin 
new_message.unit_ type 
new_message.unit_name 
end 


‘A? 
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else 
begin 
new_message.unit_type := ’C’; 
new_message.unit_name := convoy _name 
end; 
if message _type = ’1’ then 
new_message.location := node_to_resupply 
else 
new_message.location := firing_unit_to_resupply 
end; 
message exists := false; 
clearkey (message _type_index) ; 
key := message type; 
nextkey (message _type index, record_number, key); 
while ok and not message_exists do 
begin 
getrec (messages, record_number, message) ; 
if message.unit_name = new_message.unit_name then 


message exists := true; 
nextkey (message _type index, record_number, key) 
end; 


if not message_exists then 
add_message (new_message) 


end; 
begin 
for i := 1 to number of ammo trucks do 
with ammo _trucks[i] do 
if (not killed) and (mission_assigned = ’Y’) then 
begin 


if (firing_unit_ to resupply = ’PREPO’) and (not 
moving) and 
(node_to_ resupply = location) and (load_status = 


’F’) then 
begin 
load _status := ’E’; 
taread (nodes, temp node, node to resupply, 
exactmatch) ; 
temp node.ammo_count := temp _node.ammo_count 
+ 
round (ammo_capacity * effective percent) ; 
taupdate (nodes, temp node, location); 
taflush (nodes); 
create_message (’17’); 
mission_assigned := ’N’; 
firing_unit_to_resupply := null_ string; 
node_to_resupply := null_ string 
end 
else if (not moving) and (load status = ’F’) and 


(firing_unit_to_resupply <> null_string) and 


eo 


(firing _units[unit number 
(firing_unit_to_resupply) ].location = 
location) then 
begin 
load_status := ’E’; 
with firing_units[{unit_number 
(firing_unit_ to resupply)] do 
begin 
rounds _on_hand := rounds_on_hand + 
round (ammo capacity * 
effective _ percent) ; 
if firing_status = ’C’ then 
firing status := ’H’ 
end; 
create message (’2’); 
mission_assigned := ‘N’; 
firing unit to resupply := null_string; 
node _to_ resupply := null_string 
end 
end 
end; 


(KAKA KK KKK KK KKK KK KKK KKK KKK KEKE KEKEKKKKKEEKEKKKKEKKKK) 


{ 
Procedure name: )CHEGhat Chere. 


Purpose : this procedure checks the trucks each 
time step to determine if they have accrued 
sufficient rest to accomplish any assigned 
mission. It also updates the amount of rest 
and the time since they began resting. 


Parameters : none. 


Called by : PROCESS_AMMO_ TRUCKS 
} 


(A KRAKAKKKKEKKKKEKKKKEKKEKKEKKEKKKKKKKKKKKKKKKKKKKKKKEKS ) 
procedure cheek fermrese, 


var 
1 : integer; 

begin 

for 1 := 1 to number _of_ammo_trucks do 


with ammo trucks[i]} do 
if not killed then 
begin 
time since rest _began := 
time since rest began + 
game parameters.time_ step size; 
if (not moving) and (mission_assigned = ‘N’) then 
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amount_of rest := amount_of_rest + 
game parameters.time step _ size; 
if amount_of_rest >= 
round (commanders guidance.crew_rest_per_ day * 


60) then 
begin 
time since _rest_began := 0; 
anlount Of@rest™:= 0 
end 
end 
end; 


(RAK KKK AKAKAAKKK KKK EEE KEKE KEKE KKKEKKKKEKEES | 


{ 
Procedure name : CALCULATE TRUCK_STATS 


Purpose : this procedure updates the amount of 
time that a truck is not available due to 
casualties each time step. 

Parameters : none. 


Called by : PROCESS AMMO TRUCKS 


Che ee eee 
procedure calculate truck_stats; 


var 
1 : integer; 

begin 

for 1 := 1 to number of _ammo trucks do 
with ammo trucks[i] do 


casualty _ time := casualty time + 
round ((1.0 - effective percent) * 
game_parameters.time step size) 
end; 


begin 

if hostilities started then 
assess casualties; 

check_for resupply; 

check for rest; 

calculate_truck_stats 

end; 


(HR RRA AKA KKK AKA KARR KKK EKER KKK KKK KARR KKK ) 


{ 
Procedure name : PROCESS FIRE UNITS 


Purpose : this procedure checks the fire units 
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each time step for firing, attrition, ammo 
resupply, and updates it vulnerability, ammo 
status, and statistics. 


Parameters : none. 


Called by : EXECUTE _NEXT_TIME STEP 


(KKK KKKKKKKEKKKKKEKKKEKKKEKKEKKKEKKKEKKKKEEKKEEEKKEEE ) 
procedure process fire_units; 


var 
1 : integer; 


(KAKKKKKKKKKKKEKKKKKKKKKEEEKKKKEKKEEKKKEKEKEKKKKEEEX ) 


{ 
Procedure name : CHECKS FOR AMMOSKESUPEE: 


Purpose : this procedure checks the fire units 
each time step to determine if they have 
arrived at a node at which they are supposed to 
pick up ammunition. 


Parameters : none. 


Called by : PROCESS FIRE UNITS 


(AK KKRKKK KK KKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKES ) 
procedure check_for_ammo_resupply; 


var 
temp node =; node reecorer 


begin 
with firing units iia 

if (ammo_pickup mission) and (location = 
ammo_pickup_ location) then 


begin 
taread (nodes, temp node, location, exactmatch) ; 
rounds _on_hand := rounds_on_hand + 
temp node.ammo_ count; 
temp node.ammo_count := 0; 


taupdate (nodes, temp node, location); 
taflush (nodes) 
end 

end; 


(KAKKKRRRRKKKKKEKEKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKE) 


{ 
Procedure name : SHOOT ROUNDS 
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Purpose : this procedure checks the fire units 
each time step to have them fire at a rate 
consistent with their ammo status and the 
battalion csr. 


Parameters : none. 


Called by : PROCESS FIRE_UNITS 


(KH KK KK KKK IKK IKK KEKE KK KEK KEKE K EK KEKE KKK KEKE KKEEKEE ) 
procedure shoot_rounds; 


var 
rounds to fire : integer; 


begin 
Math firing units[i]} do 
begin 
rounds to fire := trunc (commanders_guidance.bn_csr * 


mace percent csr * 
sections in _operating_condition 
* 
game_parameters.time_ step size / 
(60 * 24)); 
rounds to fire := abs (normal_rv (rounds_to fire, 5)); 
if rounds_to fire > 
(sustained _rate of fire * 
sections_in operating condition * 
game parameters.time step size) then 
rounds to fire := trunc (sustained_rate_of_fire * 


sections in operating condition * 


game_parameters.time_step size); 
if rounds to fire > rounds _on_hand then 


rounds to fire := rounds_on_hand; 
rounds _on_hand := rounds on hand - rounds to fire; 
rounds _fired_from_position := rounds _ fired from_position 


+ rounds_to_ fire; 
if rounds_on_hand <= 0 then 
faring status ;:= ‘’C’ 
end 
end; 


(RK KKK KKK KKK KK KEKE KKK KKK EKER KEKE KKEKKEKES ) 


{ 
Procedure name : DETERMINE VULNERABILITY_LEVEL 


Purpose : this procedure checks the fire units 
each time step to update their vulnerability 
status based on rounds fired from position and 
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time in position. 
Parameters : none. 


Called by : PROCESS FIRE UNITS 


(KA KKKEKKEKKEKKKKEEK KEK KK ERK KEKKEKEKEKKKKKEKKEKKEKKEKKKE SE ) 
procedure determine vulnerability level; 


begin 
with firing_units[i]}, commanders guidance do 
if (time_in_position < round 
(vulnerability threshold _time * 60)) and 
(rounds fired_from_position < 
vulnerability threshold rounds) then 
vulnerability status := ‘A’ 
else if (time_in_position < round 
(vulnerability threshold time * 60)) and 
(rounds fired from_position > 
vulnerability threshold_rounds) then 
vulnerability status := ’H’ 
else if (time_in_ position > round 
(vulnerability threshold time * 60)) and 
(rounds fired from _position < 
vulnerability threshold_rounds) then 
vulnerability status := ’H’ 
else 
vulnerability status := ’C’ 
end; 


(KKK KKK KKKK KKK KK KK KKK KK KKKEKKKKKKKKKKKEKKEKKEKEE ) 


{ 
Procedure name : ASSESS CASUALTIES 


Purpose : this procedure checks the fire units 
each time step to assess casualties based on 
vulnerabilty and whether they are receiving 
incoming this time step. 


Parameters : none. 


Called by : PROCESS FIRE UNITS 


(KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKKKKEKKKKKKKEERK) 
procedure assess casualties; 


var 
je einkecer- 


(KKK KKK KK KKK KKK KK KKK KKKKKKKKKKKKKKKKEKKKKKKKKKK ) 


{ 
236 


Procedure name : CHECK_FOR_INCOMING 

Purpose : this procedure checks the fire units 
each time step to determine whether or not they 
will receive enemy artillery fire and assess 
casualties accordingly. 

Parameters : none. 


Called by : ASSESS CASUALTIES 


(Reka AKA A KKK AAA AaAAKKKAKAKKAAKAKKAKKA AKA KKK KKK KKK) 
procedure check_for_incoming; 


function displace for _incoming : boolean; 


begin 
number of fields := 1; 
Sith field list{1] do 
begin 
label string := ’Displace (Yes/No) ?’; 
label x := 30; label _y := 20; 
eae Val += ‘'N’; 
X1 3:= 517; yl := 207 X2 := 517 y2 := 20; 
field type := ch; valid _char_ set := [’Y’,/’N’] 
end; 


save_ screen; 
Smawe window (10,15,71,23, blue, lightgray, null_string); 
Memecr text (17, ’Firing unit ’ + 
firing_units[(i}.firing_unit name + 

Pelcemecelving incoming artillery fire.’, 
blue) ; 
center text (18, ‘Request permission for emergency 
displacement.’, blue); 
edit _screen (number of fields, field list, not 
abort_allowed) ; 


displace_for_incoming := field list[{1].str_val[{1]} = ’Y’; 
restore screen 
end; 


procedure displace firing_unit; 


var 
Jj : integer; 
displace_event : event record; 
current time : stringl15; 


begin 

with displace event do 
begin 
Event type := ’0’; 


2a F 


current time := game_dtg; 
time key := inc dtg_ to _timekey (current_time, 30); 
node := firing_units[1]}.location 
end; 
with firing_units[i] do 
begin 
displace event.unit_type := ’F’; 
displace event.unit_name := firing_unit_name; 
firing_status := ’M’; 
time _in_ position := 0; 
rounds fired_from_position :; 
vulnerability status := ’A’; 
add_event (displace_event) 
end; 
for j} := 1 to number_of_ammo_trucks do 
with ammo trucks{j] do 
if (not killed) and (location = 
firing units[1])) lecatton) Sehen 
begin 
displace_event.unit_type 
displace event.unit name 


We ees 
bumper number; 


moving := true; 
add _ event (displace event) 
end 


end; 
procedure assess_incoming_ casualties; 


var 
Jj : integer; 


begin 
with firingeunies| 1jedo 
begin 
sections_in_operating_condition := 
sections _ in operating condition - 
amount_of_attrition (fire unit, 1, under fime 
if sections in operating condition < 0.0 then 
sections_in_operating_condition := 0.0 
end; 
for Jj} := 1 to number _ of ammo trucks do 
with ammo trucks[j] do 
if (not killed) and (location = 
firing units{ i) location mrnen 
begin 
vulnerability status := 
firing _units[i].vulnerability status; 
effective percent := effective percent - 
amount of attrition (ammo _ truck, j, under fire 


if effective percent < 0.0 then 
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| 
© 
oe) 


effective_percent := 
end 
end; 


begin 
meen firing units[i)} do 
if ((vulnerability status 
((vulnerability_ status 
((vulnerability status 


CS araliGu( random <« 0.05))) or 
‘H’ ) wavicuee random < 0.01))” or 
’A’) and (random < 0.005) ) 


then 
begin 
if displace for_incoming then 
displace _firing_unit; 
assess _incoming_casualties 
end 
end; 


begin 
Been firing units[i} do 
begin 
sections in operating condition := 
sections in _operating_condition - 
PMOUntL Of attrition (fire unit, 1, in position); 
if sections in operating condition < 0.0 then 
sections _in_operating_ condition := 0.0 
end; 
for j := 1 to number of ammo trucks do 
with ammo_trucks[j] do 
1f (not killed) and 
(ammo trucks[j].location = 
firing units[i].location) then 
begin 
vulnerability status := 
firing_units[i].vulnerability status; 
effective percent := effective percent - 
amount_of_attrition (ammo truck, j, 
imposition) ; 
if effective percent < 0.0 then 
effective percent := 0.0 
end; 
check for incoming 
end; 


(RRR KK KKK KKKKKKKEKK KKK EK KKKKKEKKEKEKEKK KKK KK KKK KK ) 


{ 
Procedure name : PUT_VULNERABILITY MESSAGE 


Purpose : this procedure will create a message to 


be placed in the buffer if the firing units 
vulnerability level has changed this time step. 
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Parameters : none. 


Called by : PROCESS FIRE _UNITS 


(KKK KKKHKHKKKKKKKKKKKKKKEKKKEKEKKEKKKKKKKKKKKKKKEKKEKSE ) 
procedure put _ vulnerability _message; 


procedure create message; 


var 
new_message : message_record; 


begin 
with firing _units[i] do 
begin 
new_message.message type := ’7’; 
new_message.unit_type := ’F’; 
new_message.unit_name := firing_unit_name; 
if vulnerability high then 
new_message.vulnerability := ’H’ 
else 
new_message.vulnerability := ’C’ 
end; 
add_message (new_message) 
end; 
begin 


with firing_units[i] do 
case vulnerability status of 
‘A’ : if vulnerability high or vulnerability critiea@ 
then 
begin 
vulnerability high := false; 
vulnerability critical := false 
end; 
‘H’ : if not vulnerabilityahbwone chen 
begin 
vulnerability critical := false; 
vulnerability high := true; 
create_message 
end; 
‘c’ ; if not vulnerability crieicameenen 
begin 
vulnerability high := false; 
vulnerability critical |> eau 
Cr@avermeccoage 
end 
end 
end; 


(RAK KHKAKK KK KK KEK KKK KK KKK KEK KKK KKKKKKEKKEKEKEKKKEES ) 
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Procedure name : DETERMINE AMMO STATUS 


Purpose : this procedure will check the firing 
unit each time step in order to update its ammo 
status. 


Parameters : none. 


Called by : PROCESS _ FIRE UNIT 


(KKK KKK KKK KKK AKER K EKER KKKKKKKKEKKKKKK KKK KKK KE ) 
procedure determine_ammo_status; 
begin 
with firing_units[i] do 
if rounds _on_hand > (0.35 * section_max_rounds capacity * 


sections in operating _ condition) then 


ammo status := ’S’ 
else if rounds _on_hand <= 0 then 
ammo_status := ’0’ 


else if rounds_on_hand < (0.1 * 
section_max_rounds capacity * 
sections in operating condition) then 


ammo_ status := ’C’ 
else 
ammo status := ’L’ 


end; 


(HARA KAKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KK ) 


{ 
Procedure name : PUT_AMMO STATUS MESSAGE 


Purpose : this procedure will create a message to 
be placed in the buffer if the firing units 
ammo status has changed this time step. 


Parameters : none. 
Called by : PROCESS _FIRE UNITS 
} 


(KAKA KKKKKKKKEKKKEKEKKEKKKKKKKKKKKKKKKKKKKKKKEK SE) 
procedure put_ammo_ status_message; 


procedure create_message; 


var 
new_message : message record; 
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begin 
with, firing unses[1 jeae 


begin 
new_message.message type := ’6’; 
new _message.unit type := ’F’; 


new_message.unit_name := firing_unit_name; 


if ammo_low then 


new_message.ammo status := ’L’ 
else if ammo_critical then 
new_message.ammo status := ’C’ 
else if ammo_out then 
new_message.ammo_ status ;:= ‘0’ 
end; 
add_message (new_message) 
end; 
begin 
With flringeunits)| imac 
case ammo status of 
‘S’ : if ammo_out or ammo critical or ammo_low then 
begin 
ammo out := false; 
ammo critical := false; 
ammo low := false 
end; 
‘L’ : if not ammo_low then 
begin 
ammo_low := true; 
ammo critical := false; 
ammo out := false; 
Gueate Message 
end; 
‘Cc’ 3: Lf N@k ammoncr] elcalmneden 
begin 
ammo critical := tiue; 
ammo _low := false; 
ammo_out := false; 
create message 
end; 
‘O’ 3: if netvannoroue ene 
begin 
ammo out := true; 
ammo_low := false; 
ammo critical := false; 
create message 
ema 
end 


end; 


(KKK KKK KK KKK KKK KKK KKK KEKKKKKKK KKK KK KK KKK KKK KK ) 
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Procedure name : CALCULATE FIRING UNIT STATS 


Purpose : this procedure will update the stats 
for a firing unit each time step based on the 
time that it was critically short ammo, 
critically vulnerable, and time lost due to 
casualties. 


Parameters : none. 


Called by : PROCESS _FIRE_UNITS 
} 


(AKA KKAKKKKKKKKK KEKE KEKKKKKEKEKEKKKKKKKKKKKKKE ) 
procedure calculate firing_unit_stats; 


begin 
with firing _units{i] do 
begin 
if firing status = ’H’ then 


total availability time := 
total availability time + round 
(game _parameters.time step size * 
sections in operating condition) ; 
if vulnerability status = ’C’ then 
critically vulnerable time := 
critically vulnerable time + round 
(game _parameters.time step size * 
sections in operating condition) ; 
if ammo status = ’C’ then 
critically short time := 
critically short time + round 
(game _parameters.time step size * 
sections in operating condition) 
end 
end; 


begin 
for 1 := 1 to number of firing _units do 
with firing _units{i] do 
if sections_in_operating_condition > 0.0 then 
begin 
check_for_ammo_ resupply; 
if (hostilities started) and (firing status = ’H’) 


then 
shoot_rounds; 
if firing status = ’M’ then 
begin 


sections_in_operating condition := 
sections_in_ operating condition - 
amount_of_attrition (fire_unit, i, moving) ; 
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if sections in operating _condition < 020 )eiem 
sections_in_operating_condition := 0.0 
end 
else 
begin 
time _in_ position := 
time _in_ position + 
game_parameters.time step_ size; 
determine vulnerability level; 
if hostilities started then 
assess casualties; 
if sections _in_operating_condition > 0.0 then 
begin 
put_vulnerability_ message; 
determine _ammo_ status; 
put_ammo_status_message 
end 
end; 
calculate firing_unit_stats 
end 
end; 


(KKK KA KKK KKK KKK KKK KKK KK KKK KK KE KKKEKKKKEKKKKKKKKKKK) 


{ 
Procedure name : GENERATE MESSAGES 


Purpose : this procedure will display the sitrep 
and message buffer each time step if it is 
required based on desired frequency of sitreps 
and whether or not the message buffer has any- 
Chang iis see 


Parameters : none. 


Called by : EXECUTE NEXT SP ibeclie 


(KKK KK KKK KKK KKK KKK KEK KKK KKKKKKKKKEKKKKKKKKKKKKEKEKK) 
procedure generate messages; 


procedure display messages; 
var 
message : message record; 
message type : char; 
record_number : longint; 
buffer : array ls. 6) sorcerer, 
1 : integer; 
function message text (message : message record): string; 


Var 
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buLteme. String; 


begin 
with message do 
begin 
case message_type of 
fees begin 


buffer := ’Ammo prepositioned at node ’ + 
location; 
if unit type = ’C’ then 
buffer := buffer + ’, convoy ’ + unit_name + 
‘ requests orders’ 
else 
buffer := buffer + ’, truck ’ + unit_name + ’ 
mequests orders’ 
end; 
m2 + begin 
buffer := ’Ammo delivered to unit ’ + location; 
if unit _type = ’C’ then 
buffer := buffer + ’, convoy ’ + unit_name + 
‘’ requests orders’ 
else 
DUC me butrrer + %) truck % + unit name +7 
requests orders’ 
end; 
oe?) begin 
end; 
faves begin 
end; 
25’ = begin 
end; 


6’ + begin 
Gase anne status of 


mou rrer = Unit ’ + Unit name + % 1s out 
of ammo’; 
(eeu rtere.= Unit “9 unit name + ” ammo 
status is critical’; 
‘L’ : buffer := ’Unit ’ + unit name + ’ ammo 
status is low’ 
end 
end; 


a) =; begin 
case unit type of 
(Ear Vulnerabl lity =.’H’ then 


buffer := ‘Trains have reached high 
vulnerability’ 
else 
buffer := ‘’Trains have reached 


Sttedcal vulnerability’; 
‘F’ : if vulnerability = ’H’ then 
bUprews= “Unit '+ unit name + 
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‘ has reached high 


vulnerability’ 
else 
buffer := ‘Unit ‘+ unit _name + 
‘’ has reached critical 
vulnerability’ 
end 
end; 


’8’ : begin 
if unit_type = ‘’C’ then 


buffer := ‘Convoy ’ + unit _name + ’ unable to 
locate trains’ 
else 
buffer := ‘’Truck ’ + unit _name + ’ unable to 
locate trains’ 
end 
end 
end; 
message text := buffer 
end; 


procedure display buffer; 


var 
1 : integer; 


begin 
save screen; 
draw window (6,14,75,25, blue, lightgray, ‘MESSAGES jy 
fOr 1 i= Ieco sade 
put string (10, 15 +) butreneape 
center text (24, ‘press any key’) rede 
KeVae— GOCE Key, 


key := null; 
restore Sserecr 
ene: 

begin 


Cclearkey (message type index); 
nextkey (message_type index, record number, message type); 


repeat 

fOr. 1. := Petes cade 
buffer[ y= nuliesemina: 

1 See: 

while ok and (1 < 8) do 
begin 
getrec (messages, record number, message); 
buffer{1]} := message text (message) ; 
delete message (record_number) ; 
incr (ee 
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nextkey (message_type index, record number, 
message_type) 
end; 
ieeoutrter{l) <> null_string then 
Gisplay_ buffer 
@ntil not ok 
end; : = 


begin 
display messages; 
time since _last_sitrep := 
time since last _sitrep + game parameters.time step size; 
if time_since last_sitrep >= 
commanders guidance.unit _sitrep frequency then 
begin 
time since last sitrep := 0; 
display sitrep 
end 
end; 


begin 
end.*Z 
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(KKK KKAKKKKKKKKKKKEKKEKEKKKKKKEKKKKKKKKKKKKKKKKKKEEKE ) 


Unit name 


PuULEDOSe 


COMMANDS 


this unit contains the procedures that 


allow the player to input commands and have 
them executed as 1S appropriate for each 
command. 


(HR KKKKKEKKE KKK KK ERE EERE KEE ERE EEE KEKEEKKEEEEEKEKEKE ) 
unit commands; 


mterrace 


(eis) 
uses dos, 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


crt, utility, gameutil, global, taccess, tahigh; 


create Chuck convey, 
remove_truck_convoy; 
ammo resupply mission; 
cancel resupply mission; 
ammo truck_ammo_pickup; 
fire unit _ammo_ pickup; 
Cancel fire vunit premip, 
move unit; 

issue fire order; 
Change etl Bincmncice, 
cancel command; 


implementation 


type 


name array = 
FOULeCw aaa. — 


var 
route 


GULrentLpaen 


array [{1..24] of String: 
array [1..2) of array [1..11] of String 
route array; 
integer; 


(KR ARAKR KKK KKK AKKKEKKKEKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKK ) 


{ 


Procedure name 


Purpose 


UNIQUE CONVOY NAME 


this procedure checks a name entered 


for a convoy to insure that it has not been used 


to name a flre wnac, secucer 
Parameters 


Called by 


or other convey 
STRING VALUE - string to be checked. 


used aS a parameter to EDIT SCREEN 


by CREATE TRUCK CONVOY 
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(KKK KKH KKK KKK KEKE KEREKREKEKKEKEKKKKKKKKKEE ) 
{$F+} | 
function unique convoy name (string_value : string80): 
boolean; 


var 
convoy exists : boolean; 


begin 

suppress messages := true; 

string value := upper_case (string_value) ; 

convoy exists := (string_value = null_string) or 
(string value = ‘/TRAIN’) or 
(truck number (string value) <> 0) or 
(unit number (string value) <> 0) or 
(valid convoy (string value) ); 

if convoy exists then 

Gisplay error _ message (’INPUT ERROR’, null_string, 
null string, 
‘convoy must have a unique name’, 


moll string); 


unique convoy name := not convoy exists; 
Suppress messages := false 

end; 

{$F-} 


(Ke aRK KKK KKK KKK KKKKKKEKKKKEKEKEKKKEEKKEEEKKEEKEKKKKKKKKE ) 


{ 
Procedure name : VALID_AMMO TRUCK_FOR_CONVOY 


Purpose : this procedure checks a name entered 
to determine whether or not it can be added to 
a new convoy. 


Parameters : STRING VALUE - string to be checked. 


Called by : used as a parameter to EDIT SCREEN 
by CREATE TRUCK CONVOY 
) 
(RRR KKKKKEKKEKKKKKKEKKKKKKKKKKEKEKEKRKEKEKKKKAKKKKEKKKE ) 
eit) 
function valid_ammo_truck_for_convoy (string_value 
string80): boolean; 


var 
truck_exists : boolean; 


begin 

Suppress messages := true; 

string value := upper_case (string value); 
Peu@ek exists := (string value = null string) or 
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(valid_ammo truck (string value) ); 
if not truck_exists then 
display _error_message (’INPUT ERROR’, null_string, 
null string, 
‘ammo truck does not exist’, 
null string); 


valid_ammo_truck_for_convoy := truck_exists; 
Suppress messages := false 

end; 

(tia 


(HK KKK AKER EERE RE KEKEKKKEKKKEKKKKEKKEKEKREREREE ) 


{ 
Procedure name : VALID TRUCK_OR_CONVOY 


Purpose : this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing truck or convoy. 


Parameters : STRING VALUE - string to be checked. 


Called by : used as a parameter to EDIT SCREEN 
by AMMO RESUPPLY MISSION 


(KR KKK KKK KEE KEK KER KERR ERK ERK KERR KEKKEKEKEEE ) 


{$F+) 


function valid _truck_or_ convoy (string_value : string80): 
boolean; 
var 
truck_or_ convoy exists : boolean; 
begin 
Suppress messages := true; 
string value := upper _ case (string value) ; 
truck_or_convoy_exists := valid_ammo truck (string_value) or 


valid convoy (string value); 
if not truck_or_convoy exists then 
display _error_message (’INPUT ERROR’, null_string, 
‘truck/convoy entered does not 
exist’, 
‘or truck ws partwef a convoys 
null usteinaye 


valid_truck_or_convoy := truck_or_ convoy exists; 
suppress messages := false 

end; 

{$SF-} 


(KKK KKK KKK KKK KEKE KKK KEKE KKK KEKE KEE KEKE KKEKEKKEKEKEEKKER ) 


{ 


250 


Procedure name : VALID _UNIT_TO RESUPPLY 


Purpose : this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing node or unit to be resupplied. 


Parameters : STRING VALUE - string to be checked. 


Called by : used as a parameter to EDIT SCREEN 
by AMMO RESUPPLY MISSION 


(KAKKKKKKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE ) 

{$F+} 

Benecion valid unit to resupply (String value ;: string80): 
boolean; 


var 
unit exists : boolean; 
begin 
suppress messages := true; 
string value := upper _case (string_value) ; 
unit_exists := (valid_unit (string_value)) or (string_value 
= 'PREPO’); 


if not unit _ exists then 
display error _ message (’INPUT ERROR’, null string, 
fell string, 
‘unit entered does not exist’, 
meee String) 
else if string value = ’PREPO’ then 
begin 
number _ of fields a5 
with field list[3] do 
begin 
put_string (label_x, label_y, label_string) ; 
iM tengteh (Str oval) > (x2 - x2 + 1) then 


Sigma ba) ©) SoS echivemer: —oxlet 2), 
put String (x1, yl, str val) 
end 
end 
else 
begin 
number of fields := 2; 
mield list(3].str_val := null _ string; 


Meee field list(3} do 
put_string (label _x, label y, 
*) 


end; 
valid_unit_to_resupply := unit exists; 
Suppress messages := false 
end; 
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{$F-} 


(KK KKKKKKKKK KKK KKK KKKKKKEKKEKKKKKKKKKKKEKKKKKKKKKKKE ) 


{ 
Procedure name : TRUCKS AT ATP 


Purpose : this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing truck or convoy that is at the 
trains and ready to pickup ammo. 


Parameters : STRING VALUE - string to be checked. 


Called by : used as a parameter to EDIT SCREEN 
by AMMO _TRUCK_AMMO_ PICKUP 


(KKK KKKKKKEKKEK KKK KEKE KEKE KEKEKEERKEEKKEEKKKKKKKEKKKKKS ) 


{$F+} 


function trucks _at_atp (string_value : string80): boolean; 


var 
truck_or_ convoy valid : boolean; 
1 : integer; 

begin 

suppress messages := true; 

string value := upper case (string_value) ; 

truck_or_convoy_ valid := valid_ammo_ truck (string _value) or 


valid _ convoy (string value) ; 
if truck or convoy Valirdmehcnm 
begin 
if valid_ammo_truck (string value) then 
truck. on Convoy availed. — 
(ammo_trucks(truck_number (string value) ].location 


battalion trains.loecationj=ana 
(ammo_trucks(truck_number 


(string _value)].load status = ’E’) and 
(ammo_trucks[({(truck_number 
(string value) ].mission_assigned = ’N’) 
else 
begin 
truck_or_convoy valid := false; 
for 1 := 1 to number _of_ammo_trucks do 
if (ammo_trucks[i].convoy_ name = string_value) and 


(ammo_trucks[i].location = 
battalion trains.location) and 


(ammo _trucks[{i].load_ status = ’E’) and 
(ammo_trucks[{i].mission_assigned = ’N’) then 
truck_or_convoy valid := true 


end 
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end; 
if not truck_or_convoy valid then 
display error _ message (‘INPUT ERROR’, null_string, 
‘truck/convoy entered does not 


exist,’, 

‘is not at trains, has a mission, 
or’, 

‘is not out of ammunition’); 
trucks at_atp := truck_or_convoy_ valid; 
suppress messages := false 
end; 
r=) 


(HK KKAKKKKKKKEKKK KKK KKK EEEKKEKKKEKKKKKKKKKKKKKE ) 


{ 
Procedure name : TIME NOT PAST 


Purpose : this procedure checks a dtg that has 
been entered for a command to insure that it 
has not past. 


Parameters : STRING VALUE - dtg to be checked. 


Called by : used aS a parameter to EDIT SCREEN 
by any command that requires a dtg be entered. 


(KAKA KKKKKKKEKKEKKEKKAEKEKKKEKKKKEKEKEKKKKKKKEKKEKKEEKKKKEKE / 


($F+) 


function time_not_past (string value : string80): boolean; 


var 
time equivalent : datetime; 


begin 
if valid_dtg (string value) then 
begin 
dtg_to_ datetime (string value, time equivalent) ; 
if time_relative (time_equivalent, game_time) = before 
then 
begin 
time _not_past := false; 


display _error_message (’INPUT ERROR’, null_string, 
null string, 
‘time entered has already 
mease , null string); 
end 
else 
time_not_past := true 
end 
else 
begin 


Zoo 


time not past := false; 
display _error_message (’INPUT ERROR’, null string, 
‘dtg format : **0580536Z J7 
33 
‘spaces may be omitted’, 
null string) 
end 
end; 


{$F-} 


(KKK KK KKK KKK KKEKEEKKKEKKEKKEKKKKKEEEKKKK KK KKKKK ) 


{ 
Procedure name : VALID_NODE FOR_ROUTE 


Purpose : this procedure checks a node to insure 
that it lies on the route being entered for a 
movement command. 


Parameters : STRING VALUE — nNede toe genera. 


Called by : used as a parameter EO EDI TUSGRE: 
by MOVE_UNIT. 


(RAK KKH KKK KKK KKK KKK AK KKEKKEKKKKKKK KK KK KK KKK KKK KKK) 
{$F+} 

function valid node for route (string value = Strineew 
boolean; 


begin 

string value := upper case (string value); 

if valid_node (string value) then 
route[2}[1] := string_value 

end; 

(on=3 


(KKK KK KKK KKK KKEKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK) 


{ 
Procedure name : VALID PATH el i cous 


Purpose : this procedure checks a path to insure 
that it lies on the route being entered for a 
movement command. 


Parameters : STRING VALUE - path to) bDevchoe he 


Called by : used aS a parameter to EDIT Seren 
by MOVE _ UNIT. 


} 


(KAR KKKKKKEKKKKKKKKKKKK KK KK KK KKKKKKKKKKKKKKK KEKE) 


(SF+) 
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function valid path_in_route (string_value : string80): 
boolean; 


var 
node_has path : boolean; 
path_has_node : boolean; 
path_exists : boolean; 
temp path : path_record; 
temp node : node_record; 
1 : integer; 


procedure update fields displayed; 


begin 
if (key = up_arrow) and (current path > 2) then 
begin 
decr (number_of_ fields) ; 
with field list[{current_ path] do 
begin 
str val := null_string; 
put string (label_x, label y, 
/ 


ip) 
end; 
Geer (current path) 
end 
else 1f (key = enter) or (key = down_arrow) or 
((key = f2) and (string value <> null _string)) then 
begin 
meure(i | (Current path] := temp path.path name; 
if temp _path.start node = temp _node.node_name then 


route[2][current path] := temp path.end_node 
else 
BOULTer2 |Current path] := temp path.start_ node; 


with field_list[{current path] do 
put_string (label_x + 21, label _y, 
@EO node; + Youte[2]{[current path’); 
if (current path < 11) then 
begin 
incr (number of fields); 
with field_list[current path + 1] do 
begin 
put_string (label_x, label_y, label_string) ; 
if length (str_val) > (x2 - x1 + 1) then 


Streval [OO] 37— chr (x2 - x1 + 1); 
put_string™(xly™y1,*str*val) 
end; 
incr (current path) 


end 
else if key <> f2 then 
key := null 
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end 


end; 

begin 

suppress messages := true; 

string value := upper _ case (string value); 
path_exists := (key = up_arrow) or 


((key = £2) and (string_value = null_string) and 
(current path > 2)); 
if not path_exists then 


begin 
taread (paths, temp path, string _value, exactmatch) ; 
path_exists := ok; 


if not path_exists then 
display _error_message (’INPUT ERROR’, null_string, 
null string, 
‘path entered does not exist’, 
null string) 
else 
begin 
taread (nodes, temp _ node, route[({2)(current_path - 1], 
exactmatch) ; 
node has path := false; 
for 1°t= 2) tew6edc 
if temp node.paths[i] = temp path.path_name then 
node_has_ path := true; 
path_has_ node := (temp path.start_node = 
temp node.node_ name) or 
(temp path.end_ node = 
temp node.node name) ; 
path_exists := node_has_path and path_has_node; 
if not path_exists then 
display error _ message (’INPUT ERROR’, null_string, 
‘path does not connect’, “ae 
previous node’, 
null string) 
end 
end; 
if path_exists then 
update fields displayed; 


valid_path_in_route := path_exists; 
Suppress messages := false 

end; 

a) 


(KAKKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKKKKK ) 


( 
Procedure name : VALID _UNIT_TO MOVE 


Purpose : this procedure checks a unit entered to 
insure that it is a valid unit in this game and 
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that it is not already pending a move. 
Parameters : STRING VALUE - unit to be checked. 


Called by : used aS a parameter to EDIT SCREEN 


by MOVE_UNIT. 
} 


( wk KK KKK KK KKK KKK KEKE KKEKKEKEEKKKKKKEKKKKKKKKKKKK KE) 
{$F+) e e 
function valid unit_to_move (string _ value : string80): 
boolean; 


var 
unit _exists : boolean; 
im: integer; 
begin 
Suppress_messages ;= true; 
string value := upper_case (string_value) ; 
unit exists := valid_unit (string_value) or 


valid_ammo_ truck (string value) or 
valid convoy (string_value) or 
(string value = ’TRAIN’); 
if not unit _exists then 
display _error_message (’INPUT ERROR’, null_string, 
‘unit entered does not exist’, 
‘or cannot move separately’, 


nae String) 


else 
begin 
if string value = ’TRAIN’ then 
unit_exists := not battalion_trains.pending_movement 
else if valid_unit (string value) then 
unit_exists := not firing _units[(unit number 


(string value) }. 
pending _ movement 
else if valid_ammo_truck (string_value) then 
unit_exists := not ammo_trucks[truck_number 
(string value) ]}. 
pending movement 


ose 
begin 
unit_exists := true; 
for i := 1 to number of ammo trucks do 


with ammo _trucks[{i] do 
if (convoy _name = string_value) and 
(pending movement) then 
unit exists := false 
end; 
if not unit_exists then 
display error _ message (’INPUT ERROR’, null _ string, 
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‘unit is already moving or is 


‘pending execution of a 
movement’, null string) 


end; 
if unit_exists then 
begin 
if valid_unit (string_value) then 
begin 
number of fields := 4; 
with field_list[4] do 
begin 
put_string (label_x, label_y, label_string); 
if length (str val) > (x2 - x39 eeepen 
str val [0] <= chr (x2 [es 
put string (Xi, yl, Seeava” 
end 
end 
else 
begin 
number of fields := 3; 
field list[4].str_val := null_string; 


with field_list[4]} do 
put_string (label _x, label _y, ’ 
") 


end 
end; 
valid unit to move := unit exists; 
Suppress messages := false 
end; 
{$F-} 


(KKK KKKKKKKKKKHAKKKKK KEK KERR KKKKKKEKKKKKKKKKEKKEKKEKKKE ) 


{ 
Procedure name : VALID NODE FGRBRESUPEE 


Purpose : this procedure checks a node entered 
to insure that it lies along the entered route 
so that resupply can occur there. 


Parameters : STRING_VALUE - node to be checked. 


Called by : used aS a parameter to EDIT_SCREEN 
by MOVE UNIT. 


(HK KK KERR KEE KEKE KKK KKK KK KK EKER KEKE KKKKKKKKKKKKEKKKS ) 

{SF+) 

function valid node for_resupply (string_value : string80): 
boolean; 

var 
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1 : integer; 
node_in_ route : boolean; 


begin 
string value := upper_case (string_value) ; 
node in route := string_value = null_string; 
if not node_in_ route then 
for 1 := 1 to 12 do 
if string value = route[2]}][({i] then 
node_in route := true; 


if not node _in route then 
display error message (’INPUT ERROR’, null_ string, 
‘node entered is not along’, 
‘the entered route’, null string); 


valid node for resupply := node_in_route 
end; 


{$F-} 


(KKK KKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKK) 


{ 
Procedure name : CREATE TRUCK CONVOY 


Purpose : this procedure allows the player to 
create a convoy of trucks to be used as a group 
for other commands to be entered. 

Parameters : none. 


Called by : ISSUE _COMMAND 


(RAK KKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK) 
procedure create_truck_ convoy; 


var 
names : name array; 
1 : integer; 


procedure set_up fields; 


var 
1, J : integer; 
begin 
number of fields := 25; 
with field list[{1]} do 
begin 
label string := ’New convoy name :’; 
label_x := 11; label _y := 9; 
str val := null _ string; 
meee 20; Yl := 9; xX2 := 34; y2 := 9; 
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field type := eval; eval_function := unique convoy _ name 


end; 
for 1. := 0° tomZzede 
for ) 3:= "1 toyeede 
with field list[i + 3°] (253 eereece 
begin 
label string := null_string; 
label_x := 11; label_y := 11; 
str val := null strimeg, 
XL := 3+ (j * 8)3 Yle:= 13+ 1; x2 := 7 45g 
8); Y2 = oleate ae. 
field_ type := eval; eval_function := 
valid_ammo_truck_for_convoy 
end; 
field list[2].label_ string := ’Enter bumper numbers for 
Crucks Inscenveys.” 
end; 
function valid_input (var names : name_array): boolean; 
var 


input 1s valid@: beoleam 
location =>S8stiringie: 

ammo status : char; 

1 : integer; 


begin 
input_is valid := false; 
for 1 <= I eowZ4 do 
if names[1i} <> null string then 
inputlas valid): — serie 
if input_is valid then 
begin 
pa 
repeat 
LHe ee) 
until names[i]) <>milestwina, 
location := ammo_trucks[truck_number 
(names[1]})].location; 
ammo_status := ammo_trucks[truck_number 
(names[i]})].load_status; 
for 1 := 1 to 24 do 
if (names[{i] <> null_string) and 
((location <> ammo_trucks[truck_number 
(names[{1])]}].location) or 
(ammo_status <> ammo_trucks[truck_number 
(names[i])].load_status) or 
(ammo_trucks[truck_number 
(names[1i})].mission_assigned = ’Y’)) then 
input_is_valid := false 
end; 
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ieonot input _is valid then 
display _error_message (’COMMAND ERROR’, 
‘all trucks must be in same 
meGation,’, 
‘have no mission assigned, and’, 
‘have the same ammo status to be’, 


‘part of the same convoy’); 
valid_input := input_is_valid 
end; 


begin 
set_up_ fields; 
Save_screen; 
rear area (2,3,79,22); 
display _command_help_ line; 
center text (4, ‘Create Truck Convoy’, cyan); 
repeat 
edit screen (number_of_ fields, field_list, 
abort allowed) ; 


field list[{1].str_val := upper _ case 
(field_list[(1]).str_val); 
moe 1 := 1 to 24 do 
names[i1} := upper_case (field list[{i + 1].str_val) 


until (key = escape) or valid_input (names) ; 
if key <> escape then 
mer 1 t= 1 to 24 do 
if names[i} <> null_string then 
ammo_trucks[truck_number(names[i])].convoy_name := 
field list[({1]).str_ val; 
feeeore Screen 
end; 


(HK KK KKK HH KK KKKKKKKKKKKKKEKKKKEKKKEKKKEKEKKKKKK KE) 


( 
Procedure name : REMOVE TRUCK_CONVOY 


Purpose : this procedure allows the player to 
remove trucks from a convoy so that they will 
now be treated individually by the player. 
Peramecters :; none. 


Called by : ISSUE COMMAND 


(RRR RRR RRR RR TR RIK RRR RR kk) 
procedure remove_truck_convoy; 


var 
1: integer; 


Zor 


procedure set_up fields; 


begin 
number of fields := 1; 
with field list[{1] do 


begin 
label string := ’Convoy to be separated ;’; 
label _ x := 25; IWabel y := 12; 


str_val := null_string; 
X1 := Sl; yl := 12; xX2 3:= 557 SyZe: eee, 
field _ type := eval; eval_function := valid convoy 
end 

end; 


begin 

set_up fields; 

Save screen; 

Clé@arncareay( 2 reece, 

display command_help line; 

center text (4, “Remove Truck Convoy Jeevan. 

edit_screen (number_of_ fields, field list, abort allowed) ; 


field_list[1).str_val := upper _case (field list[1].str wae 
if (key = £2) or (key = enter) then 
for 1 := 1 to number_of_ammo trucks do 

if ammo_trucks[i].convoy_name = field list[1].str_ val 

then 
ammo trucks[1].convoy_name := null _ string; 

reESCOrCeSemee:l 
end; 


(KAKRKKKKKKKKEKEK KKK KKK KKKKKKKKKKKKKKKKKKKEKKKKKKS ) 


{ 
Procedure name ; AMM@sRESUPPRY Mission 


Purpose : this procedure allows the player to 
assign a truck or convoy the mission of ammo 
delivery to either a fire unit or node. This 
command must be issued with a corresponding 
movement order to insure that applicable units 
are at the proper locations for delivery. 


Parameters : none. 


Called by : ISSUE COMMAND 


(ERK KAKKKK KEKE KEKE KEKKKKKKEKKEKKEKKKKEKKKEKKKKEKKKEKS ) 
procedure ammo_resupply mission; 


var 
1 : integer; 
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procedure set_up fields; 


begin 
number of fields := 2; 
with field list[1] do 
begin 
label _ string := ’Ammo truck bumper # or convoy name ;:’; 
label x := 19; label_y := 10; 
str_val := null_string; 
X1 := 57; yl := 10; x2 := 61; y2 := 10; 
field type := eval; eval_function := 
valid _truck_or_convoy 
end; 
Seeetield list[2] do 
begin 
label string := ’Unit to resupply :’; 
label x := 19; label_y := 12; 
str_val := null_string; 
X1 := 39; yl := 12; X2 := 437; y2 := 12; 
field_type := eval; eval_function := 
valid_unit to resupply 
end; 
with field list[3] do 
begin 
label string := ’Node to resupply :’; 
label _ x := 19; label_y := 14; 
ere Val := null string; 
Pee — 39; Yl s= 147; X2 := 433 y2 := 14; 
field_type := eval; eval function := valid node 
end 
end; 
function valid_input : boolean; 
var 
input _is valid : boolean; 
1 : integer; 
begin 
input_is_valid := not ((field_ list[3].str_val = null_string) 
and 


((field_list[2].str_val 
(field_list[2].str_ val 
if input_is valid then 


AUlggestr ing) “or 
PPRErO”))); 


begin 

Suppress messages := true; 

if valid_ammo_truck (field_list[{1].str_val) then 
begin 
input_is valid := ammo _trucks[truck_ number 


(field list[{1].str_val)]}. 
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mission assigned = ‘N’; 
if not input_is_ valid then 
display error message (’COMMAND ERROR’, 
hud string), 
‘ammo truck already has a’, 
‘mission assigned’, 
null_string) 
end 
else 
begin 
for 1 := 1 to number _of_ammo_trucks do 
if (ammo _trucks[1].convoy_name = 
field list[1].str val) and 
(ammo_trucks[i}].mission_assigned = ’Y’) then 
input_is valid := false; 
if notwinput is valideeacn 
display error message (’COMMAND ERROR’, 
null string, 
‘convoy already has a’, 
‘mission assigned’, 
nud Los ering) 


end; 
suppress messages := false 
end; 
valid input := input_is valid 
end; 
begin 


set_up fields; 
Save screen; 
Clear varea M2363 Jee ce 
display _command_help line; 
center text (4, ‘Ammunition Resupply’, cyan) ; 
repeat 
edit_screen (number of fields, field_list, 
abort_allowed) ; 


field list[1].str_val := upper_case 
(field list/[1)-stri vale 

field list[2).str val := upperseasc 
(field list({2)-2str vol, 

field_list[(3].str_val := upper_case 


(field list[(3).str_val); 
until (key = escape) or valid input; 
1f key <> escape then 
begin 
if truck_number (field list[1].str val) <> )0@enes 
begin 
ammo_trucks[(truck_number (field list[1].str_val)]. 
mission_assigned := ‘'Y’; 
ammo _trucks[truck_number (field list{1].str_val)]. 
firing unit _ to resupply := field 1ist/|2) 2strivas 
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ammo trucks[truck_number (field_list[{1].str_val)]. 


node_to resupply := field _list[(3].str_val 
end 
else 
for i := 1 to number_of_ammo trucks do 


if ammo _trucks[i]}.convoy_name = 
field list[1}.str_val then 
begin 
ammo _trucks[i].mission_assigned := ’Y’; 
ammo trucks[i].firing_unit_to_resupply := 
field_list[2]}.str_val; 
ammo_trucks[i].node_to_resupply := 
field_list[3].str_val 
end 
end; 
restore screen 
end; 


(HERA KKK KK KKKKEKKKKKKKEKKEKK KKK KEKE KKEKKEKEKKKKKKS ) 


{ 
Procedure name : CANCEL RESUPPLY MISSION 


Purpose : this procedure allows the player to 
cancel the resupply mission issued to a truck 
or convoy by the AMMO RESUPPLY COMMAND. 


Parameters : none. 
Called by : ISSUE COMMAND 

} 
(KKK KKKKK EK KKEKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKE ) 


procedure cancel resupply mission; 


var 
ioe: integer; 


procedure set_up_ fields; 


begin 
number_of fields := 1; 
with field list[1] do 
begin 
label string := ’Ammo truck bumper # or convoy name :’; 
label _ x := 19; label _y := 12; 
Sem val := null string; 
See S77 =«€6Y1l t= 127; X2 = Gl; y2 := 12; 
field_type := eval; eval function := 
valid_truck_or_ convoy 
end 
end; 


265 


begin 

set_up fields; 

save screen; 

ClearVarea (2,379, 2200 

display command help line; 

center text (4, ‘Cancel Resupply Mission’, cyan); 

edit screen (number _of fields, field_list, abort allowed) ; 
field list[{1].str_val := upper_case (field_list[1].str_val); 


if (key = £2) or (key = enter) then 
for i := 1 to number_of_ammo_trucks do 
if ((ammo_trucks[{i]}.bumper_number = 
field list([1]-Strivalj wor 
(ammo trucks[{1i].convoy_name = 
field list{1].str_val)) and 
(ammo trucks[i].mission_ assigned = ’Y’) and 
((ammo_trucks[{i].node to resupply <> null_string) 
aie 
(ammo trucks[i].firing unit to resupply <> 
null string)) then 
begin 
ammo trucks[{i].mission_ assigned 
ammo trucks[i].node_ to resupply 


‘Nice 


nud ese rine; 
ammo trucks[1]).firing_ unit to resupply := 
null string 
ene: 
restore Screen 
end; 


(ARK RKKRKKRKKKEKERKEKKKEKKKKKKEKKKKKKKEKKKKEKKEKKKKKEKKE ) 


{ 
Procedure name : FIRE UNIT AMMG@rPIcrKur 


Purpose : this procedure allows the player to 
issue an order to a fire unit to pick up ammo 
at a specified node. This command must be 
issued with a corresponding movement order to 
get the fire unit to the specified node. 
Parameters : none. 

Called by : ISSUE COMMAND 


(KARA KKK KE KRKEKKKEKKEKKEKKEKEKKEKKKKKKKKKKKKKKKEKEKS ) 
procedure fire vunit amie: pice 


procedure set_up fields; 


begin 
number of fields := 2; 
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with field list{1]) do 
begin 
label string := ’Fire unit to pick up ammo :’; 
label x := 24; label_y := 11; 
str_val := null_string; 


Ries — Oo, Yl s= 117  X2 3:= S77 y2 := 113 
field type := eval; eval_function := valid_unit 
end; 

with field list[2] do 
begin 


label string := ‘Location of ammo :’; 
label x := 24; label_y := 13; 
str val := null_string; 


X1 := 44; yl := 137 x2 := 48; y2 := 137 
field type := eval; eval function := valid_node 
end 

end; 


function valid input : boolean; 


var 
input _is valid : boolean; 


begin 
input_is_ valid := field _list[2].str_val <> null_string; 
if input _is valid then 

begin 


with firing_units[unit number (field list[1]}.str_val)] do 


input_is valid := ammo_pickup mission; 
if not input_is valid then 
display error _ message (’COMMAND ERROR’, null string, 
‘fire unit already has an’, 
‘ammo pickup mission assigned’, 
null string) 
end; 
valid_input := input_is valid 
end; 


begin 
set_up_ fields; 
save screen; 
mmemtenarea (2,3,79,22)? 
display command help line; 
center text (4, ’Fire Unit Ammunition Pickup’, cyan); 
repeat 
edit_screen (number_of fields, field list, 
abort_allowed) ; 
field_list[{1].str_val := upper case 
feetemad list(1.str val); 
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field _list{2]).str_val := upper_case 
(field list[{2].str_val) 
until (key = escape) or valid_input; 
if key <> escape then 
with firing _units(unit_number (field list(1).stravaljeaee 


if not ammo _pickup_mission then 
begin 
ammo pickup mission := true; 
ammo pickup location := field _list[{2].str_val 
end; 
FeEStore Screcn 
end; 


(KAKA KKKKEE EEE EKER EEEEEEKEEKEKEKREKKEKKKKKKKES ) 


{ 
Procedure name ; CANCEL FIRE UND esse 


Purpose : this procedure allows the player to 
cancel an order to a fire unit to pick up ammo 
at a specified node as directed to by a 

FIRE UNIT AMMO PICKUP order. 


Parameters : none. 
Called by : ISSUE COMMAND 

} 
(KERR KKK KKK KEK KKK KERR AREER KKKEKKKKEKEKK KKK KKKKKKEKE ) 


procedure cancel fire unit pickup; 


procedure set_up fields; 


begin 
number of fields := 1; 
with field list{1]} do 
begin 
label string :=""’Firesuniteee, 
label x := 33; “abel y Mae 
str val >= null serine, 
X1 := 46; yl := 12; x2 ?= 507 7 y2) 2 
field_type := eval; eval function := valid_unit 
end 
end; 
begin 


set_up fields; 

Save screen; 

clear “anea. (2,379) 220", 

display command_help line; 

center text (4, ‘Cancel Ammo Pickup Mission’, cyan); 
edit_screen (number of fields, field list, abort allowed) ; 
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Mmeclaelisct{1].str val *= upper case (field Pist[1].str_val):; 


if (key = f2) or (key = enter) then 
with firing_units{unit_number (field_list{1].str_val)] do 


if ammo pickup mission then 


begin 
ammo pickup mission := false; 
ammo pickup location := null_string 
end; 
meecore screen 


end; 


(Re KKKK KK KKKKKKKK KKK KKKEKKKKKKK KR KKK KKKKKKKKKKKKKS ) 


{ 
Procedure name : AMMO _TRUCK_AMMO_ PICKUP 


Purpose : this procedure allows the player to 
issue an order to a truck or convoy that is 

at the trains location and empty to proceed to 
atp for ammo resupply. 


Parameters : none. 


Called by : ISSUE COMMAND 
} 


(RHHRKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKS ) 
procedure ammo_truck_ammo_ pickup; 


var 
command number : string6; 
Mew €vent 1 : event record; 
Mew event 2 : event _record; 
1 : integer; 


procedure set_up fields; 


begin 
number of fields := 2; 
With field list[1] do 
begin 
label_ string := ’Ammo truck or convoy to pickup ammo :/; 
mabe! X := 19; label _y := 11; 
eee val := null string; 
eee DO, Yl := ll; X2me:= 62 jeeey2 := 11; 
field_type := eval; eval function := trucks at atp 
enc ; 
with field _list[{2] do 
begin 
label string := ’Departure time :’; 
Mabel x := 19; label_y := 13; 
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Str val *= game deg, 


X1 := 37; yl 3:= 13; xX2 <= 51; y2 =e 
field type := eval; eval function := time_not_past 
end 

end; 

begin 


set_up_ fields; 

save screen; 

clear area (275,737 22m 

display command_help line; 

center text (4, ‘Ammo Truck Ammunition Pickup’, cyan); 

put string (55, 6, “Command ynumberaa sn, 

str (command_ serial number, command_number) ; 

put_string (72, 6, command_number); 

color foreground (55,67 7736, youulow 

edit screen (number of fields, field_list, abort_allowed) ; 


field list{1].str_val := upper_case (field_list[({1].str_val); 
if key = f2 then 
begin 
with new _event_1 do 
begin 
event eype=.—. Db |; 
serial number := command_serial number; 
dtg_to_timekey (field list[{2].str_val, time_key); 
unit type =:—s- a, 
unit name := null string; 
node := null string; 
path := ‘ATP’ 
end; 
new_event_2 := new_event_1; 
with new_event_2 do 
begin 
CVvenemey po —m an, 
time Key := inc_datg_to timekey (field list[2].str Vaug 


abs (normal rv 
(game_parameters.avg time _ trains to atp, 10))); 


path := null string 
end; 

if truck_number (field_list[{1]).str_val) <> 0 then 
begin 


new_event_1l.unit_name 

new_event_2.unit_name 

neweevent 2.node <= 
ammo_trucks[truck_number 

(field_list[{1].str_val) }].location; 

ammo_trucks(truck_number (field list[{1].str_val)]. 
mission_assigned := /Y’; 

add event (new _event 1); 


field list({1]}-stuivaas 
field list[(1).str_val; 


270 


add_event (new_event_2) 
end 
else 
begin 
for i := 1 to number _of_ammo_trucks do 
if ammo trucks[i]}].convoy_name = 
field_list[{1].str_val then 
begin 
new_event_1l.unit_name := 
ammo_trucks[i].bumper_number; 
new_event_2.unit_name := 
ammo_trucks[i].bumper_number; 
new_event_2.node := ammo_trucks[i]}.location; 
ammo _trucks[i].mission_assigned := ‘’Y’; 
add_event (new_event_1); 
add_event (new_event_2) 
end 
end; 
incr (command serial number) 
end; 
restore screen 
end; 


(KKK KKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKK KKK ) 


{ 
Procedure name : ISSUE FIRE ORDER 


Purpose : this procedure allows the player to 
issue an order to a fire order to execute a 
fire order with the specified number of volleys 
and at the specified time. 


Parameters : none. 


Called by : ISSUE COMMAND 
} 


(KKK KKKKK KEKE KKK KKK KK KEKK KKK KKKKKKKK KKK KKK KKK KEK ) 
procedure issue fire order; 


var 
command number : string6; 
new_event : event_record; 


procedure set_up fields; 


begin 
number_of fields := 3; 
with field list[1] do 
begin 
fel String := ’Unit to fire :/; 
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label_x := 25; label_y := 10; 
str val := null_ string; 
X1 := 417; yl := 10; xX2 := 45355 72 (=e. 
field_type := eval; eval function := valid_unit 
end; 
with field list[{2] do 
begin 
label string := ‘/Time to fire :’; 
label_x := 25; Jabeliiya eer 
str_val := game_dtg; 
XL := 41; yl := 12; xX2 3= 353575072) .-e 
field type := eval; eval_function := time_not_past 
end; 
with field list[3] do 
begin 
label string := ’Number of volleys :’; 
label_ x := 25; ‘labelny sn, 
X1 := 46; yl := 14; x2 := 48; y2 := 14; 
field type := int; int_min_value := 0; int _max_value := 
maxint; 
int val We; — ie: 
str (int value, str_val) 
end 
end; 
begin 


set_up fields; 

save screen; 

clear aréa (2327777275, 

display command_help line; 

center text (4, “Fire Order” cyan 

put string (55, 6, ‘Command number wes, 

str (command_serial number, command_number) ; 

put_string (72, 6, conmand numbers 

color foreground (55,6,77,6,) yellows 

edit_screen (number of fields, field list, abort_allowed) ; 


field_list[1].str_val := upper case (field_list{1].str_val); 
if key = f2 then 
begin 
with new _event do 
begin 
event type i=) re, 
serial number := command _serial_number; 
adtg_to timekey (field list[{2].str_val, time_kKey) ; 
unlt.type <=) oR: 
unit name := field list/(lj-.strava 
volleys := field list({3].int_ value 
end; 


add _ event (new_event); 
incr (command_ serial number) 


Zia 


end; 
restore screen 
end; 


(RRR KKAKKKRKKKRKEKKKKEKKKEKKEKKE KEK KKKEKKKEKEKKEKKKKKEKES ) 
Procedure name : CHANGE FIRING _ RATE 

Purpose : this procedure allows the player to 
change the rate at which a unit fires during the 
execution of each time step. 


Parameters : none. 


Called by : ISSUE_COMMAND 


(ARK AAKKKKEKKKEKEKEKEEKEEKEKKEEKKK EEE KKEEKKEKEKEKKKEKKKES | 
procedure change_firing_rate; 


procedure set_up fields; 


begin 
number of fields := 2; 
with field list[1]} do 
begin 
label string := ’Unit to change :’; 
label x := 27; label _y := 11; 
str_val := null_string; 
femeee—- 457; Yl s= ll; xX2 := 493; y2 := 11; 
field type := eval; eval function := valid_unit 
end; 
men field _list[2} do 
begin 
Mapel string := ’Firing rate (% CSR) :/; 
Habel x := 27; label _y := 13; 
oe ( 1.0, str val); 
mee OO; Yl = 837 x2 := 537 ye := 13; 
field _ type := float; float_min_value := 0.01; 
float_max_value := 1.0 
end 
end; 
begin 


set_up fields; 

save screen; 

Sreamewarea (2,3,79,22); 

display _command_help line; 

center text (4, ‘Change Unit Firing Rate’, cyan); 
edit_screen (number_of_fields, field list, abort _allowed) ; 
field list[{1].str_val := upper_case (field list[1].str_val) ; 
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if key = f2 then 
firing_units[unit_ number 
(field_list[1].str_val)].rate_percent_csr := 
field _1list{1]}).float_ value; 
restore screen 
end; 


(KERR ERE KEKRKEKEKKEKRKEKKKKKKEKKKKKKKKKKKKS ) 


{ 
Procedure name : CANCEL COMMAND 


Purpose : this procedure allows the player to 
cancel a command that was issued with a time for 
execution if it has not passed. It requires that 
the serial number of the command to be cancelled 
be entered. 


Parameters : none. 
Called by : ISSUE_COMMAND 
} 


(ARK EKEEKKEKKEEKEKEEKREKEKEKEKKEKEKKKEKKKKKKEKEKS | 
procedure cancel command; 


var 
record mumber ~ longine: 


procedure set_up fields; 


begin 
number of fields := 1; 
With field list[1]} do 
begin 
label _ string := ’Number of command to cancel :’; 
label x := 24; label y := 12; 
str val “= null@gstring: 
X1 := 55? yl := 12; x2 := 57; (V2 
field type := int; 
int_min_value := 0; int _max_value := 
command_serial number - 1 
end 
end; 
begin 


set_up fields; 

Save screen; 

clear area (2,3, 7/9722 

display command _help line; 

center text (4, ‘Cancel Command’, <¢yan); 

edit screen (number _ of fields, field_list, abort allowed) ; 
if (key = f2) or (key = enter) then 
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begin 
findkey (serial number_index, record_number, 
meeela list(1].str_val); 
while ok do 
begin 
delete _ event (record_number) ; 
findkey (serial number index, record_number, 
field list[1]}.str_val) 
end 
end; 
restore _ screen 
end; 


(RAK KKKKKEKKKKEKKEKKKKEKEKKEKEKEKEREKKEKEREREKKEKKKKEKRKKES ) 


{ 
Procedure name : MOVE_UNIT 


Purpose : this procedure allows the player to 
issue a movement order to any of the units in 
the game. This is done by first entering the 
route for the movement and then the information 
for the unit and the time to movement. It also 
allows the player to instruct a fire unit to 
resupply in route at a specified node. 


Parameters : none. 


Called by : ISSUE _COMMAND 


(RAKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE) 
procedure move_unit; 


var 
command number : string6; 
valid_input : boolean; 


(REAKKKKKKKEKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKKKK) 


{ 
Pmeceaure name : GET ROUTE 


Purpose : this procedure allows the player to 
emeer the route to taken by a unit that is to 
be moved with this movement order. It allows 
Peeeeute with up to 10 nodes in it. 


Parameters : none. 


Saeed by : MOVE UNIT 


(RARER KKKKKEEKRKEKKKKKKKKKEKKKKKEKKEKKKKKEKKKEKKKEKEKEK) 
procedure get_route; 
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var 
i ya neeger: 
j : integer; 


procedure set_up_ fields; 


var 
1 : integer; 


begin 
number of fields := 2; 
with field list[1] do 
begin 
label _ string := ‘Start node :’; 
labeitx:= 24, ldbetiya.aauor 
str val := null string; 
X1 := 38; yi t= 10; X2 °= 42; (V2 ee 
field_type := eval; eval function := valid_node_for_route 


end; 
for 1 := 2 topligas 
with field list[i] do 
begin 
label string := ‘alone paths 
label x :> 2473alabelly := 10s, 
stro val <=" nul tse mame, 
X1 := 38; yl := 10 + i; X2 :=942500 2 = oe 
field type := eval; eval function := 
valid_path_in_ route 
end 
end; 


begin 
set_up fields; 
save screen; 
put string (26725) AccepeErouce oe 
center text (8, ’Enter route for movement’, cyan); 
for 2 $= a tore deo 
for ) 3$="1. Cope cde 
route [1)[3))3= nullssctring, 
CUrreNnt pach <= aez 
valid input := false; 
repeat 
edit_screen (number of fields, field list, 
abort_allowed) ; 
for 1 := 1 to number of fields do 
field_list[i].str_val := upper case 
(field.1ist(1))strivaly 
if key <> escape then 
valid input := field_list[2].str_ val <> nullgeeriae 
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until (key = escape) or valid input; 
restore_screen 
end; 


( & ek kk kk kk a KKK KKK KK KKK KKK EEE EKEKKEKKEEKEEEEE ) 


{ 
Procedure name : GET_MOVEMENT_INFO 


Purpose : this procedure allows the player to 
enter the unit to be moved, the departure or 
arrival time, and, if it is a fire unit, the 
location for a resupply in route. 


Parameters : none. 
Called by : MOVE UNIT 

} 
(KAKA KK KH KKK KK KKK KHKKKKKEKKKKKKKKEKEEKRKKKKKKKKKKKKK S ) 


procedure get_movement_info; 


procedure set_up fields; 


begin 
number of fields := 3; 
with field list[1] do 
begin 
label _ string := ’Unit to move :’; 
abel x := 18; label_y := 10; 
Semeval := null string; 
eles — 34; Yl >= 107 x2 := 38; y2 := 10; 
field type := eval; eval function := valid_unit to move 
end; 
with field list[{2]} do 
begin 
label_ string := ‘Time for movement :’; 
ape x := 18; label_y := 12; 
str_val := game _ dtg; 
eee S97; Yl s= 12; x2 := 537; y2 := 12; 
field_ type := eval; eval function := time_not_past 
end; 
Meh field Jdist[3] do 
begin 
label_string := ’Is this a departure or arrival time 
Gp AY :'; 
label _ x := 18; label_y := 14; 
Ser Vall := ‘’D’; 
Bes O37; Yl := 14? x2 := 63; y2 := 14; 
Field type := ch; valid char set := [{’D’,’A’] 
end; 
with field list[{4]} do 
begin 
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label string := ’Node to resupply at :’; 


label x +=: 18, ) Vabeiy = ect 
str val:= null strane, 
X1 := 417; yl := 16; x2 := 45; y2 := 16; 


field type := eval; eval_ function := 
valid _node_for_resupply 

end 
end; 


begin 

set_up fields; 

Save_screen; 

center text (8, ‘Enter movement information’, cyan); 

edit screen (number _of fields, field_list, abort_allowed) ; 


field list[1}.str_val := upper_case (field_list[1]).str_val); 
field list({4].str_val := upper_case (field_list[4].str_val); 
valid _ input := key = f2; 

reSeore seEcenh 

end; 


(KKK KKKKKEKK EKER KERR KEKE KKKKKKEKKRKKKKKE) 


{ 
Procedure name : CREATE _EVENT_ RECORDS 


Purpose : this procedure creates the event 
records that correspond to the information 
entered in this movement order. 


Parameters : none. 


Called by : MOvVEeUNET 
} 


(RK KKK KKK KKK KKK KKK KEK KEK KK KKK KKKKKKEKKKKKKEKER | 
Procedure Gerecte SVeme t CComdcr 


type 
route array = array (2..19) of “Wmecger, 
var 
route_info : route array; 
total estimated time : integer; 
New ~eVeENE s. (evene record: 
wait_event : event record; 
wait exists : boolean; 
command _start_ time : datetime; 
command_time : stringl15; 
path number : integer; 
1 «fea nteqerd: 
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procedure calculate _movement_times (var route_info 
route_array; 


var total_estimated_time 


>; integer); 


var 
i : integer; 
path_number : integer; 
speed : real; 
calculated_time : integer; 
estimated time : integer; 
total _calculated_time : integer; 
temp path : path_record; 
tracked vehicle : boolean; 


begin 
path_number := 2; 
total_estimated_time := 0; 
total calculated_time := 0; 
tracked vehicle := unit_number (field_list[{1]).str_val) 
repeat 
taread (paths, temp path, route[1]{path_number], 
exactmatch) ; 
if tracked vehicle then 


begin 
estimated time := 
FOUN CCGneO / 
game_parameters.avg track_convoy_ speed) * 60.0) 
* temp path.length) ; 
case temp path.road condition of 
‘Pp’ : speed := 0.95 * 
game_parameters.avg_track_convoy_ speed; 
’M’ :; speed := 1.00 * 
game_parameters.avg_track_convoy_speed; 
‘G’ : speed := 1.05 * 
game_parameters.avg_track_convoy_ speed 
end; 
calculated time := 
abs (normal _rv (round (((1.0 / speed) * 60.0) 
Gemp. pacth.length))" 5) ) 
end 
else 
begin 
estimated _ time := 
meund (C(( 1.0 / 
game_parameters.avg wheel convoy speed) * 60.0) 
* temp path.length) ; 
case temp_path.road_condition of 
’P’ : speed := 0.95 * 
game_parameters.avg_wheel_ convoy _ speed; 
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<> "C 


‘M’ :; speed := 1.00 * 
game_parameters.avg_wheel_ convoy_speed; 
’G’ :; speed := 1.05 * 
game_parameters.avg_wheel_ convoy_ speed 
end; 
calculated time := 
abs (normal _ rv (round (((1.0 / speed) * 60.0) * 
temp path.length), 5)) 


end; 
route info{path_number] := calculated time; 
total estimated time := total_estimated_time + 
estimated time; 
total calculated _time := total_calculated_time + 


calculated time; 

incr (path_number) 
until (path_number > 11) or (route[1](path_number] = 
nol string): 


for 1 := path_number to 11 do 
route _info[i] := 0 

end; 

begin 


calculate_movement_times (route_info, total _estimated_time) ; 
dtg_ to datetime (field _list[{2]}].str_val, command_start time); 


if field _list(3].str_val = ’A’ then 
dec_time (command_start_time, total _estimated_time) ; 


if time_relative (command_start_time, game_time) = before 
then 
command_start_time := game_time; 


datetime to dtg (command start_time, command time); 
path_number := 1; 


repeat 
walt exists := false; 
if path _number = 1 then 
begin 
with new_event do 
begin 
event type := ’D*; 
serial number := command_serial_ number; 
dtg_to_timekey (command_time, time_key); 
path := route[1] (path number +) 
end 
end 


else if (path_number = 11) or (route[1][{path_number + 1] 
= nul string) @enen 
begin 
with new _event do 
begin 
event type := ’0’; 
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serial number := command_serial_number; 
time_key := 
inc_dtg_to timekey (command_time, 
route _info[path_number]) ; 


node := route[2][path_number] 
end 
end 
else 
begin 
if route[2][path_number] = field_list[4].str_val then 
begin 
wait_exists := true; 
with wait_event do 
begin 
event type := ‘W’; 
serial _ number := command_serial_number; 
time key := 


inc_dtg_to_timekey (command _time, 
route _info[path_number]) ; 
node := route[2][{path_number] 
end 
end; 
with new_event do 
begin 
event _type := ‘/T’; 
serial number := command _serial_number; 
if wait_exists then 
time key := 
inc _dtg_ to timekey (command time, 
game _parameters.time step size) 
else 
time key := 
inc_dtg_to_timekey (command _time, 
route_info[path_number}) ; 


path := route[1}[{path_number + 1] 
end 
end; 
if unit_number (field list[1].str_val) <> 0 then 
begin 


hae 
field lista. streval; 


new_event.unit_ type 

new_event.unit name 

add_event (new_event) ; 

if wait _exists then 
begin 
wait_event.unit type 
wait_event.unit name 
add_event (wait event) 
end 

end 

else if truck_number (field list[1].str_val) <> 0 then 
begin 


OnE aes 
Plcsndwlist(.)].str val; 


Zou 


‘AS . 
field list[1).strm vane 


new_event.unit_type 
new_event.unit_name 
add_event (new_event) 
end 

else if field_list[1]).str_val = ‘TRAIN’ then 
begin 
new_event.unit_type 
new_event.unit_name 
add_event (new_event) 


oT 
field list[1) .str var 


end 
else 
begin 
new_event.unit_type := ‘A’; 
for i := 1 to number_of_ammo_trucks do 


if ammo_trucks[i].convoy_name = 

field list({1).str_val then 

begin 

new _event.unit_name := 
ammo trucks[{1i]}.bumper_number; 

add_event (new_event) 

end 

end; 
incr (path_number) 

until (path_number = 12) or (route[1]}[path_number]} = 
null string) 
end; 


begin 
save _ screen; 
clear area (2,3,,79722), 
display _command_help line; 
center text (4, ’Move Unit’, cyan); 
put_string (55, 6, ‘Command number :’); 
str (command _serial_ number, command_number) ; 
put string (72, 6, command_number) ; 
color foreground (5576,77 7,6, you senrs 
get revue, 
if valladeinpur even 
begin 
get_movement_info; 
if valid_input then 
begin 
ClLedteme Vee  reeoraa, 
incr (command_serial_ number) 
end 
end; 
Lest Ot~emeerecen 
end; 


begin 
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(A EKKKKKKEKKEKKEKKEKEKEKKEKEEKEKEKEKKEKKEKREEKKEEKEKKS ) 


{ 
Unit name : GAMEUTIL 


Purpose : this unit contains a number of general 
purpose procedures that are specific to the 
game and that are used by procedures or 
functions that are in more than one unit. 


(FI I IOI III IT kk kkk kk) 
unit gameutil; 


interface 


uses dos, utility, global, taccess, tahigh; 


type 

time relation _ type = (before, after, same); 
var 

Suppress messages : boolean; 


function always true (string value : string80): boolean; 

procedure inc _time (var time : datetime; increment 

integer) ; 

procedure dec _ time (var time : datetime; decrement 

integer) ; 

procedure dtg_ to datetime (dtg : string15; var datetime_rec 
datetime) ; 

procedure datetime to dtg (datetime rec : datetime; var dtg 
SEEIMe1 oS). 

procedure dtg_ to timekey (dtg : string15; var timekey 

SEFInGT ONG; 

function time_relative (timel, time2 : datetime): 

time relation type; 

function time_in_ range (timel, time2, checktime 

datetime): boolean; 

function inc dtg_ to timekey (var start dtg = stringies 


increment : Integer wr: 
Ste lene, 
procedure determine day or night; 
function normal rv (mean : integer; sd : integer): integer; 


function unit number (name : string5): integer; 

function truck_number (name : string5): integer; 
procedure add_event (new_event : event_record) ; 

procedure delete event (record number : longint); 

function valid_unit (string value : string80): boolean; 
function valid_ammo truck (string value = sermngcee 
boolean; 

function valid_convoy (string value : string80): boolean; 
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function valid_node (string_value : string80): boolean; 
procedure close all files; 


implementation 
function always true (string value : string80): boolean; 


begin 
always true ;:= true 
end; 


(RAK KKAKAKKKKKKKKK KKK KKKKEKREKKKKKKKKKKKEKKKKKEKEKE ) 


( 


Eeoceaure mame : ING, TIME 


Purpose : this procedure increments a time that 
is represented by the Turbo provided datetime 
type and returns it. The increment is to be 
specified in minutes. 


Parameters : TIME - datetime record to be 
incremented. 
INCREMENT - number of minutes to increment the 
datetime record. 


Called by : 


(RRR KKKKKEKKKKKKKEKKEKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKKE) 


procedure inc_time (var time : datetime; increment 
integer) ; 


begin 
with time do 
begin 
min := min + increment; 
if min > 59 then 
begin 
hour := hour + (min div 60); 
Min := min - ((min div 60) * 60) 
end; 
Peewour > 23 then 
begin 
day := day + (hour div 24); 
nour -= hour - ((hour div 24) * 24) 
end; 
if day > month_data [month]).days then 
begin 
day := day - month data [month].days; 
month := month + 1 
end; 


if month > 12 then 
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begin 


montem 2:= i 
year := year + 1 
end 

end; 


end; 


(RAK KKKAKKKKKKKKKEKEKKEKEKEKKEKKEKKEKKEKKKKKKKKKKKKKKKKKKK) 


{ 
Procedure name : DEC_TIME 


Purpose : this procedure decrements a time that 
is represented by the Turbo provided datetime 
type and returns it. The decrement is to be 
specified in minutes. 


Parameters : TIME - datetime record to be 
decremented. 
DECREMENT - number of minutes to decrement the 
datetime record. 


Called by : 
} 


(RAKKKKKKKKKEKKKKEEKKKEKEEKEKEKKKKEKKEKEKKKKKKEKEKEKKKKKKKS ) 


procedure dec time (var time : datetime; decrement 
integer) ; 


var 
dec mins : integer; 
dec hours : integer; 
dec days : integer; 
begin 
dec_days := decrement div 1440; 
decrement := decrement mod 1440; 
dec_hours := decrement div 60; 
decrement := decrement mod 60; 
dec mins := decrement; 
with time do 
begin 
if min >= dec _ mins then 
min := min - dec _ mins 
else 
begin 
min := 60 - (dec_mins - min); 
incr (dec_hours) 
end; 
if hour >= dec_hours then 
hour := hour - dec_hours 
else 
begin 
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holiwe.— 24 =—"(dec hours = hour); 
incr (dec_ days) 
end; 
while dec days >= day do 
begin 
dec days := dec_days - day; 
if month > 1 then 


month := month - 1 
else 
begin 
month := 12; 
year := year - l 
end; 
day := month _data[month].days 
end; 
day := day - dec days 
end 


end; 


(KE KKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE ) 


{ 
Peoecaure Name : DTG TO DATETIME 


Purpose : this procedure converts a string that 
represents a valid dtg and converts it to the 
date and time in the form of the datetime 
type record. 


Parameters : DTG - string that contains the dtg 
to be converted. 
DATETIME REC - record to contain the result of 
the conversion. 


Called by : 


(KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KKK KK) 


procedure dtg_ to datetime (dtg : string15; var datetime rec 
datetime); 


var 
error_code : integer; 

begin 

dtg := remove blanks (dtg); 

RenecOpy (dtg, 1, 2), datetime rec.day , error_code) ; 

mumeaoy (dtg, 3, 2) = ’24’ then 
datetime _rec.hour := 0 

else 


wee (copy (dtg, 3, 2), datetime rec.hour, error code); 
val (copy (dtg, 5, 2), datetime rec.min , error code); 
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datetime_rec.month ;:= ord (str_to month (Copy s(a@tcq jam jum 
ely 


val (copy (dtg, 11, 2), datetime _rec.year, error_code) ; 
datetime rec.year := datetime _rec.year + 1900 
end; 


(RAK KKKKKKKKKKEKKKKKKKKKKEKKEKKKKEKKKKKKKKKKKKKKKKKKE ) 


{ 
Procedure name : DATETIME TO DTG 


Purpose : this procedure converts a datetime 
record into a string that represents a valid 
dtg. 


Parameters : DATETIME REC™= record ™ co cc on, 
verted into a dtg string. 
DTG - string to contain the converted datetime 
record. 


Called by 


(KHKKHRKKKKKRKKEKKE KEKE EKKEKRKEKEKKEKKEKEKKKKKKKKKKKKKKKK) 


procedure datetime _to dtg (datetime rec : datetime; var dtg 
String 5)% 


var 
string val : stringl15; 
begin 
with datetime rec do 
begin 


str (day, string val); 
if day < 10 then 


begin 
atg (1) aad: 
dtg [2] := string val [1] 
end 

else 
begin 
adtg [1] := stringivals ie. 
adtg (2) := string val (2) 
end; 

adtg [3] := blank; 


str (hour, stringivaly 
1f (hour = 0) and (min = 0) then 


begin 
Gta (4) := a2-=, 
dig, (5) = ! A’ 
end 
else if hour < 10 then 
begin 
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dtg [4] := ‘0%; 
atg [5] := string_val [1] 
end 

else 
begin 
@tq [4] := string_val [1]; 
atg [5] := string_val [2] 
end; 


str (min, string_val); 

af min < 10 then 
begin 
dtg [6] moO. ; 
adtg (7] := string_val [1] 
end 

else 
begin 
dtg [6] 
dtg [7] 
end; 

atg (8) := ’2°; 

dtg [9] := blank; 

insert (month_data [month].name, dtg, 10); 

eieg [13] := blank; 

str (year - 1900, string val); 

insert (string _val, dtg, 14) 

end 

end; 


string_val [1]; 
string val [2] 


(KA KKKAKKKKHKKKKKKHKKKKKKKKEKEKKKKEKEKKKKKKKKKKKKKKKKKKS ) 


{ 
Procedure name : DTG TO TIMEKEY 


Purpose : this procedure takes a string that 
1s a valid dtg and converts it to a string that 
contains the same information but can be used 
as an alphabetic key for event records. 


Parameters : DTG - string that contains the valid 
dtg to converted for use as a key. 
TIMEKEY - string that will contain the key 
after conversion from dtg format. 


Called by 


(RAK KKK KKK KKK KKK KEEKKKKKKKAKKKKKKKES ) 


procedure dtg_to timekey (dtg : string15; var timekey 
Sening)0) ; 


var 
month : month_type; 
month_val : string; 
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begin 


dtg := remove _ blanks (dtg); 
insert (copy (dtg, 11, 2), timekeyoee, 
month := str_to month (copy (dtg,) 2) ae 


str (ord (month) + 1, monthivaile 
if ord (month) < 10 then 

insert (’0’ + month_val, timekey, 3) 
else 

insert (month_val, timekey, 3); 
insert (copy (dtg, 1, 6), timekey, 5) 
end; 


(AAR AKKAAKHEK AKER EEEKEKEKEKKEKKEKKEKKKRAEKKKEKE) 


{ 
Procedure name : TIME RELATIVE 


Purpose : this procedure compares two records of 
type datetime and determines whether the first 
one represents a time that occurs before, after 
or at the same time as the second record. 


Parameters : TIME1 - the first record of type 
datetime to be compared against. 
TIME2 - the second record of type datetime to 
be compared against the first one. 


Called by : 


(AK RKRAKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKK KKK) 


function time_relative (timel, time2 : datetime): 
time relation type; 


begin 
if timel.year < time2.year then time_relative := before 
else if timel.year > time2.year then time_relative := after 
else 
begin 
if timel.month < time2.month then time_relative := before 


else if timel.month > time2.month then time_relative := 
after 
else 
begin 
if timel.day < time2.day then time relative := before 
else if timel.day > time2.day then time_relative := 
after 
else 
begin 
if timel.hour < time2.hour then time_relative <= 
before 
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else if timel.hour > time2.hour then time_relative 


:= after 
else 
begin 
if timel.min < time2.min then time_relative := 
before 
else if timel.min > time2.min then time_relative 
>= after 
else 
time relative := same 
end 
end 
end 
end 
end; 


(Kak k kK KKK KKK KKK kkk kkKKKKKKAKAKKKKKKKKKKKKKKKKKK ) 


{ 
Procedure name : TIME _IN_RANGE 


Purpose : this procedure will check the third 
parameter of type datetime and indicate whether 
or not it falls between the times represented 
by the first two datetime records. 


Parameters : TIME1 - the first record of type 
datetime to be compared against. 
TIME2 - the second record of type datetime to 
be compared against. 
CHECKTIME - the record of type datetime to be 
compared to the interval represented by TIME1 
and TIME2. 


Called by 
} 


(Hk HR RK KKK KEKE RE RE RE RERE ERE KEK RAKE KE) 
function time_in_range (timel, time2, checktime : datetime): 
boolean; 


begin 
if time_relative (timel, time2) = before then 
time_in_range := ( (time_relative (checktime, timel) in 


(after, same]) and 

(time relative (checktime, time2) in 
[before, same]) ) 
else 

time_in_range := ( (time_relative (checktime, time2) in 

{after, same]) and 

(time relative (checktime, timel) in 
[before, same]) ) 
end; 
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(KAKA AKKKKKEKKEK KEKE KK KKK KEKE KE KEKKEKEKKEKEKKEKEKKKEKEKEKKEKE ) 


{ 
Procedure name : INC _ DTG TO TIMEKEY 


Purpose : this procedure will take a string that 
represents a valid dtg and increment the time 
and date that it represents by the specified 
number of minutes and return the result in the 
form of a string to be used as a key to an 
event record. 


Parameters : START DTG - the string that 
represents a valid dtg to be incremented. 
INCREMENT - the number of minutes to 
increment the time represented by the dtg. 


Called by ;: 
} 
(KKK KKKKKKKKK KKK KKKK KK KEKE KKKEEKEKKKEKKKKKKKKS ) 
function inc _dtg_ to timekey (var start _dtg : stringl5; 
increment : integer ): string; 


var 
final datetime : datetime; 
final dtg = steamnais. 
final _timekey : stringl0O; 


begin 

dtg_to_datetime (start _dtg, final datetime) ; 
inc_time (final datetime, increment) ; 
datetime to dtg (final datetime, finaleereae 
dtg_to_timekey (final_dtg, final _timekey) ; 
start dtq :— J finaledea, 

inc_dtg_ to _timekey := final_timekey 

end; 


(RH KKKKKK KKK KKK KKK KK KEK KHKKKEKKKKEKKKEKKEKEKKKKKKKKS ) 


{ 
Procedure name : DETERMINE DAY*eR ics 


Purpose : this procedure uses the BMNT end EENT 
entered by the player to determine whether the 
game time is at day or night. 


Parameters : none. 


Called by 
} 


(KAKA KEKE KKKKKKKKKKKK KKK KKK KAKA KK aK KEK) 
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procedure determine day _or_night; 


var 
sun_up : integer; 
sun_down : integer; 
error : integer; 


begin 
val (copy (commanders _guidance.bmnt, 1, 4), Sun_up, error); 
val (copy (commanders _guidance.eent, 1, 4), sun_down, 
error); 
day time := (((game_time.hour * 100) + game_time.min) >= 
sun_up) and 

(((game_time.hour * 100) + game_time.min) < 
sun_down) 
end; 


(AAKKKKKKKKKKKKEKKK KE KKKEKKKKKKKKKKKKKKKKKKKEKKKEKK ) 


{ 
Procedure name : NORMAL RV 


Purpose : this procedure will return a normally 
distributed random variable with the specified 
mean and standard deviation. 


Parameters : MEAN - the mean of the distribution. 
SD - the standard deviation of the 


eastribution. 
Called by : 
(KA KKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS ) 
function normal rv (mean : integer; sd : integer): integer; 
var 


merandom ; real; 
y_ random : real; 
y_calculated : real; 


begin 
repeat 
xX random := (random * 6.0) = 3.0; 
y random := random * (1 / sqrt (2.0 * pi)); 
fecalculated := exp (-1.0 * sqr (x_random) jf 2.0)./ sqrt 
fo * pi) 
until y_random <= y calculated; 
normal rv := round (x_random * sd + mean) 
end; 


(RAK KKK KKK KKK KKK KKKKKKKKKKKKKKEKKKKKKKKKKKKKKKE KK) 
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( 
Procedure name : UNIT NUMBER 


Purpose : this procedure will take the name of 
a unit and return the number of that unit in 
the array of firing units. It will return a 
O if the name doews not correspond to a 
£Neg alte 


Parameters : NAME - the name of the firing unit 
to be checked. 


Called by : 


(RAK KAKKKKKKKKKKKEKEKKKKKKKKKKKKEKKEKKEKEKKKKKKKKKKKKKK ) 
function unit _number (name : string5): integer; 


var 
firing unit number : integer; 


begin 
firing unit number = — 
repeat 

incr (firingsunitenumber) 
until (firing_unit_number = number of firing_units) or 

(name = 

firing units[firing_unit number]).firing unit name); 
if name <> firing _units[firing unit _number].firing_unit_name 
Eben 


unit number := 0 
eis 

unit number := firing_unit_ number 
end; 


(HK AKKKKKKKKEKKKKKKKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKEKKKS | 


( 
Procedure name : TRUCK NUMBER 


Purpose : this procedure will take the bumper 
number of a truck and return the number of that 
truck in the array of ammo trucks ae leew 
return a value of 0 if the bumper number does 
not correspond to a truck. 


Parameters : NAME - the bumper number of the 
truck to be checked. 


Called by : 
} 


(RAK KKKKKKKKKKKEKKKKKKKKKKKKEKEKEKEKKKKKKKKKKKKKKKKS ) 
function truck _number (name : string5): integer; 
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var 
ammo _truck_number : integer; 


begin 
ammo _truck_number := 0; 
repeat 
incr (ammo_truck_number) 
until (ammo_truck_number = number_of_ammo_trucks) or 
(name = ammo _trucks({ammo_truck_number].bumper_number) ; 


if name <> ammo_trucks[ammo_truck_number].bumper_number then 


truck number :;:= 0 
else 

truck_number := ammo_truck_number 
end; 


(HAKKKKKKKAKKKKKKKAKRKAKKKKKKKAKKKAKKKKKKKKKK KEKE) 


{ 
Procedure name : ADD _EVENT 


Purpose : this procedure will take the event 
passed to it and add it to the file that 
contains the events list of events not yet 
executed. 


Parameters : NEW _EVENT - the event record to be 
added to the events list. 


Called by : 
} 


(Ax akaKKKAKKKKKKKEKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKKKEKS ) 
Pmeeeaure add event (new _ event : event_record); 


var 
mecord number : longint; 
command_number : string6; 


begin 

str (new_event.serial number, command_ number) ; 

addrec (event_list, record_number, new_event) ; 

addkey (time_index, record_number, new_event.time_key) ; 
addkey (serial_number_index, record_number, command_number) ; 


flushfile (event list); 
flushindex (time_index) ; 
flushindex (serial_number index) ; 


if new_event.event_type = ’D’ then 
begin 
Suppress messages ;:= true; 
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case new_event.unit type of 


‘T’ : battalion_trains.pending movement := true; 
“A’ : ammo_trucks[truck_number 
(new_event.unit_name) ].pending_movement := 
true; 
‘F’ 3: firing units[ unit number 
(new_event.unit_name) ].pending_movement := 
true 
end; 
suppress messages := false 
end 
end; 


(KRHA KH KKK KKK KKK KKK KKEKKKKKKKEKEKKEKKKKKKKKKEKKEKKKE) 


{ 
Procedure name : DELETE EVENT 


Purpose : this procedure will take the event 
corresponding to the record number passed to 
the procedure and delete it from the events 
list. If the event was related to a cancelled 
movement order it also takes the unit involved 
and moves it to the nearest node if it was 
on a Pathe 


Parameters : RECORD NUMBER - the number of the 
record to be deleted from the events list. 


Called by 
} 
(RAK KKKKKKKKKEKKKKKKKKEKKKEKKEKEKKKKKKKKKKKKKKKKKKKKEK) 
procedure delete event (record number : longint); 
var 
event : event record; 
command number : string6; 


tempepath™: pathmrecord, 


begin 
getrec (event_list, record_number, event); 
str (event.serial number, command_number) ; 
if event.event type in [(’0O’,’T’97W 4) jeGaem 
begin 
suppress messages := true; 
case event.unit type of 
‘T’ 3; wath battalionetrainsede 
begin 
if not valid_node (battalion_trains. location) 
then 
begin 
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taread (paths, temp path, location, 


exactmatch) ; 
location := temp path.start_node 
end; 
pending movement := false 
end; 
‘A’ : with ammo trucks[(truck_number (event.unit_name) ] 
do 
begin 


if not valid_node 
(ammo _trucks[truck_number 
(event.unit_name)}.location) then 
begin 
taread (paths, temp path, location, 


exactmatch) ; 
location := temp _path.start_node 
end; 
pending movement := false 
end; 
'F’ 3; with firing_units[unit number (event.unit_name) ] 
do 
begin 


if not valid_node 
(firing _units[unit number 
(event.unit name) ].location) then 
begin 
taread (paths, temp path, location, 


exactmatch) ; 
location := temp path.start_node 
end; 
pending_movement := false 
end 
end; 
Suppress messages := false 
end; 


deletekey (serial _number_ index, record_number, 
command_number) ; 

deletekey (time_index, record number, event.time_key) ; 
deleterec (event_list, record number) ; 

flushfile (event list) ; 

flushindex (time index) ; 

flushindex (serial_number_ index) 

end; 


(RA KRKAKAKK KKK KKK KK KKK EKER RE REREEKEKEREREKEES ) 


{ 
Procedure name : VALID UNIT 


Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
ait that it still alive. 


27 


Parameters : STRING VALUE - name of unit to be 
checked. 


Called by : 


(RAKKKHKHEKKKKKKEK KEKE KEKEKEKEKKKKKEKEKKEKKKKKKEKKEKEKKKKEES ) 


{$F+} 


function valid _ unit (string_value : string80): boolean; 


var 
unit exists : boolean; 


begin 
string_value := upper _ case (string_value) ; 
unit exists := (unit _number (string value) <> 0) and 


(firing_units[unit_number (string value) ]. 
sections _in_operating_condition > 0.0); 
if (not suppress messages) and (not unit_exists) then 
display _error_message (’INPUT ERROR’, null_string, 
nulestring, 
‘unit entered does not exist’, 
null string) 
Va lvan una: 
end; 


{$F-} 
(KA KKKKKKKKKKKKKKKEKKKKKKKKKKKEKKEKEKKKEKKKKKKKKEKKEKKE )/ 


{ 
Procedure name : VALID AMMO TRUCK 


; 
= unit exists 


Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
truck that is still valve: 


Parameters : STRING VALUE - name of truck to be 
checked. 


Called by : 


(RR KKKKKKKKKKEKKEKEKEKEKEKEKEEEKEKKEKEEKKKEKKKEKEKEEKKKKEKKEE ) 
(SF+} 

function valid_ammo_truck (string_value : string80): 
boolean; 


var 
ammo_truck_good : boolean; 


begin 
string_value := upper case (string value); 
ammo_truck_good := (truck_number (string_value) <> 0) and 
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(ammo trucks [truck_number 
(string_value)].effective percent > 0.0) and 
(ammo_trucks[truck_number (string_value)].convoy_name = 
null string) ; 
if (not suppress messages) and (not ammo_truck_good) then 
display _error_message (’INPUT ERROR’, null_string, 
‘truck entered does not exist’, 
‘or is part of another convoy’, 
meet string) ; 
valid_ammo truck := ammo _truck_good 
end; 


{$F-} 


(KAA KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKES | 


{ 
Procedure name : VALID CONVOY 


Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
eenveoy that is still in operation. 


Parameters : STRING VALUE - name of convoy to be 
checked. 


Called by 


(HE AKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE ) 


(SF+) 
function valid convoy (string value : string80): boolean; 


var 
ammo_truck_number : integer; 
convoy exists : boolean; 


begin 
string_value := upper_case (string value) ; 
convoy _ exists := false; 
if string_value <> null string then 

for ammo_truck_number := 1 to number of ammo trucks do 

if (ammo_trucks[ammo_truck_number].effective percent 
> 0.0) and 
(string _value = 
ammo_trucks[ammo_truck_number].convoy_ name) then 
convoy _ exists := true; 

if (not suppress messages) and (not convoy exists) then 

display _error_message (’INPUT ERROR’, null_string, 
Meeieestring, 

‘convoy does not exists’, 

null string) ; 
valid_convoy := convoy exists 
end; 
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{$F-} 


(RAK ARKH KEKE KEE REE EEE REE REE EKEEEKREEREKEKEKKEKEEKE ) 


{ 
Procedure name : VALID NODE 


Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
node created for this scenario. 


Parameters : STRING VALUE - name of node to be 
checked. 


Called by : 


(KAKA KKKK KKK KKK KKK KEKE KEKKEKEKEEKEEEKKEEKEKEKKKKEKKS ) 


{SF+} 


function valid node (string_value : string80): boolean; 


var 
temp node ; node record; 
node_exists : boolean; 


begin 
string value := upper case (string_value) ; 
taread (nodes, temp_node, string_value, exactmatch) ; 
node_exists := ok; 
if (not suppress_messages) and (not node exists) then 

display error message (’INPUT ERROR’, null_string, 
null serine, 

‘node does not exists’, 

nuda seyeng Ty 
valid_node := node exists 
end; 


{$F-} 


(RK KKEAEKKEK KEKE KEKEKKKEKKEKEKEKKEKKKKKKKEKEKKEKES ) 


{ 
Procedure name : CLOSE ALL FILES 


Purpose : this procedure will close all files 
that are used throughout the game. 


Parameters : none. 


Called by 


(RAK KK KAKA KK KEKE KKEEKKEKKKEKEKKKKKEKEKKKKKKKKKKKKKKS | 
procedure close all files; 


begin 
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taclose (nodes); 

taclose (paths); 

Cclosefile (event_list) ; 
closeindex (time_ index) ; 
closeindex (serial number _ index); 
closefile (messages) ; 

closeindex (message_type index) 
end; 


begin 
end.%*Z 
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(RAK KAKKKK KKK KKK KKK KEKRKEKEKEKEKKEKEKEKKEKKKKKKKKKS ) 


{ 
Unit name os) UDlEre 


Purpose 


x 


this unit contains a number of general 
purpose procedures that perform functions 
related to input and output of information 
using menus and full screen editing. 


} 


(xa K KKK KKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKS | 


Ul  Uite ety; 


interface 


{$I-} 


uses dos, crt; 


const 
null string = 7 
blank = #32; 
null = 00; 
backspace = 08; 
enter = 13; 
escape = 27; 
space = 32; 
fl = 59 
f2 = 60 
fe = 61 
£4 = 62 
£5 = 63 
£6 = 64 
£7 = 65 
fee = 66 
9 = 67 
170 = 68 
fli: =—33 
fi = 134 
home key = 71 
up_arrow = 72 
page_up = 73 
left_arrow = 75 
right arrow = wa 
end_key = 79 
down_arrow = 80 
page down = 81 
insert_key = 82 
delete key = 83 


Me Hue a le £ aquiate 
menu_x2_ default 
menu yi detaure 
menu_y2_ default 


shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 
shl 


oon 
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menu_forecolor default 


white; 


menu_backcolor_ default = blue; 
option forecolor default = blue; 
option backcolor default = lightgray; 
field forecolor _ default = yellow; 
field backcolor_ default = magenta; 

5 


max fields per_screen = 2 


f 


abort_allowed = true; 
type 

stringl = string [1]; 
string2 = string [2]; 
string3 = string (3]; 
string4 = string [4]; 

Strings =estringe{5 jw 

string6é = string [6]; 

string7 = string [7]; 

string8 = string [8]; 

string9 = string [9]; 

SerangiO = string [10]; 
Beringl!5 = string [15]; 
Sering20 = strong [20]; 
Eang25) = string [25]; 
string30 = string [30]; 
string35 = string [35]; 
string40 = string [40]; 
string45 = string [45]; 
BemangsO = string (50); 
string55 = string [55]; 
string60 = string [60]; 
string65 = string [65]; 
string70 = string [70]; 
Beming75 = string f75}*% 
string80 = string [80]; 
option string = string; 


eval function type = function (string value string80): 
boolean; 
month type = (JAN, FEB, MAR, APR, MAY, JUN, 
Tr, averse sOCT. NOV, DEC, 
INVALID MONTH) ; 
data _ type = (int, float, ch, strg, eval, enum, dtg, 
time) ; 
month_record = record 
days integer; 
name string3 
end; 
field record = record 
label string Strands 0; 
itaibe] x,label y integer; 
Set Val ; strings0; 
pau Vd, 2X2, Y2 integer; 


case field type data _ type of 
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eran : ( intevalue™® DPongane, 


int_min value, 
int_max_value : integer ); 


float : ( float Value > Freak 


float_min_value, 
float *maxevalue “real oF 


ch ; ( valid_char_set ;: set of char ); 
enum : ( number of enum _ values : integer; 
valid _enum_values : array [1..10]} of 
stringlO ); 
eval : ( eval _ function : eval function type ); 
end; 


field array = array [1..max_fields per screen] of 
field record; 


font = array [1..7] of array [1.-7}§emeenar, 
var 

key : integer; 

menu_x1, menu_x2, menu_yl, menu_y2 : integer; 

menu forecolor, menu_backcolor : integer; 

option forecolor, option backcolor  wimeeqam 

field forecolor , field backcolor : integer; 

default _mask : dirstr; 

letters array [°A’..°2’) Of Pome, 

digits array, [*0’..°9” |, of {iene 

fontfile : fille vometene, 

number of fields : integer; 


field list < frel@marua, 
month data : array [1..12] of money reeeray 


procedure 
procedure 
FUnGe on 


funceron 
fFuNnGeLOn 


FuUnGCELen 
function 
funceEToNn 
procedure 
fUNnCEZoNn 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
funecerENn 


incr (var number : integer); 

decr (var number : integer); 

remove blanks (string value : string80): string80; 
upper case (string value : string80): string80; 


str_to_month (string _ value : string3): month_type; 


valid dtg (string _value : string15): boolean; 
valid_time (string value : string5): boolean; 
insert_on : boolean; 

toggle _ insert; 

get_key : integer; 

initialize screen; 

save screen; 

restore screen; 

print _screen; 

remove cursor; 

BES eCOne Cuts Om, 

beep; 

printer ready : boolean; 
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preeecaure color baekground (x1, yi, x2, y2, color 


integer); 

procedure color foreground (x1, yl, x2, y2, color 
integer) ; 

procedure clear area (xl, yl, x2, y2 : integer); 
procedure put_char (column, line : integer; character 
char); 


function get char (column, row : integer): char; 

procedure put string (column, line : integer; text 

string80) ; 

procedure put _ font string (column, line : integer; text 

stringl10; color : integer); 

procedure center text (line : integer; text : string80; 

color : integer); 

procedure draw_window (xl, yl, x2, y2 : integer; 
forecolor, backcolor : integer; 
title : string80); 

procedure shade _ window (xl, yl, x2, y2, color : integer); 

procedure display error _ message (title, linel, line2, line3, 

line4 : string55); 

function edit field (field : field record): string80; 

procedure display edit _screen_help line; 

procedure display edit list_help line; 

procedure display command_help line; 

procedure display add record help line; 

procedure edit screen (var number of fields : integer; 
var field data : field array; 
abort possible : boolean); 

function menu_selection (menu_title : string80; 

menu_options : option_string): 

integer; 

function get file (prompt, message : string80; search mask 

mme@irstr): pathstr; 


implementation 


type 

screen = array [{1..25] of array (1..80) of integer; 
var 

keyboard _ status : byte absolute $0040:$0017; 

register values : registers; 

screen image : screen; 

cursor x : integer; 

cursor y : integer; 

stack_pointer : integer; 

screen_image_ stack : array [1..7] of screen; 


cursor x stack s array [1.°7] of integer; 
cursor _y stack s abraye[l: .Jigof integer; 
Hoop :; char; 

const 
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screen location : “screen = ptr ($B800,$0000) ; 
procedure incr (var number : integer); 
begin 
number := number + 1 
end; 
procedure decr (var number : integer); 
begin 
number := number - 1 
end; 


function remove _ blanks (string_value : string80): string80; 


var 
pOSiI tions by re. 


begin 
position := pos (blank, string value); 
while position =< 50 de 
begin 
delete (string value, position, 1); 
position := pos (blank, string value) 
end; 
remove blanks := string value 
end; 
function upper _case (string value : string80): string80; 
var 


position : byte; 


begin 

for position := 1 to length (string value) do 
string value [position] := upcase (string_value 

[posi Clon): 

upper _ case := string value 

end; 


function str_to_ month (string value : string3):> months 


begin 

if string _value = ‘JAN’ then 
Str Co _ month gap Jah 

else 1f string value = ‘FEB’ then 
Str to MOneh,: —Jeee 

else 1f string value = ‘MAR’ then 
Str to month :— Mae 
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else if string _ value = ‘APR’ then 


str _to_ month := APR 

else if string value = ‘MAY’ then 
str_to_month := MAY 

else if string value = ’JUN’ then 
str _to_month := JUN 

else if string_value = ’JUL’ then 
str_to_month := JUL 

else if string_value = ’AUG’ then 
str_to_month := AUG 

else if string value = ’SEP’ then 
Seeeto month ;=| SEP 

else if string value = ’OCT’ then 
str_to_ month := OCT 

else if string_value = ‘NOV’ then 
str _to_month := NOV 

else if string_value = ’DEC’ then 
str to_month := DEC 

else 
str_to_month := INVALID MONTH 

end; 


function valid dtg (string value : string15): boolean; 


var 

date : longint; 

mime : lLongint; 

year : longint; 

Bome : char; 

month : month_type; 

error code : integer; 
begin 
string _value := upper_case (string value) ; 
string_value := remove blanks (string_value) ; 
if length (string value) = 12 then 

begin 


wee (copy (string value, 1, 2) 
val (copy (string _value, 3, 4) 
val (copy (string _ value, 11, 2 


, Gate, error code); 
, time, error code); 
), year, error code); 


zone := char (string value [7]); 
month := str_to_ month (copy (string_value, 8, 3)); 
valid_dtg := (error _code = 0) and 


(month <> INVALID MONTH) and 
(date > 0) and (date <= month_data [ord 
(month) ]).days) and 
(time >= 0) and (time <= 2400) and 
(Zene ine A’..°2’)) and 
(year >= 70) and (year <= 99) 
end 
else 
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valid_dtg := false 
end; 


function valid time (string value =: strings): =beateen. 


var 
time : longint; 
zone : char; 
error _ code : integer; 
begin 
string value := upper _case (string_value) ; 
val (copy (string_value, 1, 4), time, error_code); 
zone := char (string value [5]); 
valid time := (error_code = 0) and 
(time >= 0) and (time <= 2400) and 
(zone in (7A°ee 7 ap) 
end; 


function insert_on : boolean; 


begin 
insert_on := ((keyboard status and $80) = $80) 
end; 


procedure toggle _ insert; 


begin 
if insert_on then 

keyboard status := keyboard status and $7F 
else 
keyboard status 
end; 


keyboard status or $80 


function get_key : integer; 


var 
key value : integer; 


begin 
key value := ord (readkey) ; 
if key value = null then 
key value := ord (readkey) shl 8; 
get_key := key value 
end; 


procedure initialize screen; 
begin 

window (1,1,80,25); 
textbackground (black); 
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textcolor (yellow) ; 
clrscr 
end; 


procedure save screen; 


begin 

incr (stack_pointer) ; 

screen image_stack [stack_pointer] := screen_location’; 
cursor_x stack [stack_pointer] := wherex; 
cursor _y stack [stack_pointer] := wherey 

end; 


meocedure restore screen; 


begin 

screen location’ := screen_image_stack [stack_pointer]; 
gotoxy (cursor x stack [stack_pointer], cursor_y stack 
[stack_pointer}); 

decr (stack_pointer) 

end; 


procedure print_screen; 
begin 
intr ($5, register values) 


end; 


mMrocedure remove cursor; 


begin 

Gecoxy (1,1); 

register values.ax := $0100; 
register values.cx := $2607; 
intr ($10, register values) 
end; 


procedure restore cursor; 


begin 

register values.ax := $0100; 
register values.cx := $0607; 
intr ($10, register values) 
end; 


procedure beep; 


begin 

sound (1000); 
seemay (100); 
nosound 
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end; 


function printer _ready : boolean; 


begin 

register values.ah := $02; 

register values.dx := $00; 

intr ($17, register values) ; 

printer ready := (register_values.ah and $08) = $00 
end; 


procedure color background (xl) yi, x2yy 4.) come 
integer) ; 


var 
line, 
column : integer; 
value : integer; 
begin 
for line := yl to y2 do 
£or column =— xl Gomx2 dc 
begin 
value := screen _ location’ [line,column]; 
value := (value and SOFFF) + (color shl 12); 
screen location* [line,column] := value 
end 
end; 


procedure color foreground (x1, yi x2 eo eG 
integer) ; 


var 
line, 
column : integer; 
value : integer; 
begin 
for line <= yl "te yZade 
for column :— x1] Go x2ace 
begin 
value := screen_location’ [line,column]; 
value := (value and S$FOFF) + (color shl 8); 
screen_location’* [line,column] := value 
end 
end; 
procedure clear area (xl, yl, xX2, y2 3 peegeun 
var 
line, 
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column : integer; 


value : integer; 
begin 
mor Line s= yl to y2 do 
for column := x1 to x2 do 
begin 
value := screen_location’ [line,column]; 
value := (value and $FFOO) + ord (space); 
screen location*® [line,column] := value 
end 
end; 
procedure put char (column, line : integer; character 
char); 
var 


value : integer; 


begin 

value := screen_location’ [line,column]}; 
value := (value and $FFOO) + ord (character); 
screen location’ [line,column]} := value 

end; 


function get char (column, row : integer): char; 


begin 
get char := chr ( lo (screen location’ [row, column]) ) 
end; 


procedure put string (column, line : integer; text 
string80) ; 


var 
ie: integer; 


begin 
for 1 := 1 to length (text) do 
Put char (column + 1.- 1, line, text [1}) 
end; 
Peoeceaure put font string (column, line : integer; text 


SemmagiO; color : integer); 


var 
k : integer; 


procedure put_font_ char (column, line : integer; character 
emete, color : integer); 


Jee 


var 
1; ).¢ anveger- 


begin 
if (column < 74) and (line < 19) ten 
for 1 := Ito v7ede 
for j += 1) cowed 
begin 
if (character in [’a’.s.’zZ’)]) ore (Charactereunm 
PeA?. 927) then 
put_char (i + column - 1, j + line - 1, letters 
(Character) Jijpeesp 
else if character in [’0’..'’9’)] then 
put char (i + column - 1, j + line = 1, Gago 
[character | fj. 2p 
else 
putwechar (1 + colunne— seas 
color foreground (1 + 7eoltun 
1 + eCouumner 


+ line - 1, blank); 
1, J) + line —"= 
1, 3 + line - 1, 


COLGYr) 
end 

end; 
begin 
for k := 0 to length (text) - 1 do 

put_font_ char (column + (k *8), Wine;wtext (k+l) eomemm 
end; 
procedure center text (line : integer; text : string80; 


Colom =: integers, 


var 
indent : integer; 
begin 
indent := (((lo(windmax) - lo(windmin) + 1) - length (text) ) 
div 2) + 1; 


put string ((lo(windmin) + indent), line, text); 

color foreground ((lo(windmin) + indent), line, 
(lo(windmin) + indent + length (text) - 

1), Lines colo:, 


end, 
procedure draw window (x1, yl, %2, yY22emeeaqem: 
forecolor, backcolor "3 aneeqer: 
title : stringear 
var 
line, 
column, 
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indent : integer; 


begin 
clear _ area (xX1,y1,xX2,y2); 
Soler background (xX1,y1,x2,y2, backcolor) ; 
color _ foreground (x1,y1,x2,y2, forecolor); 
for column := x1 to x2 do 
begin 
Puc char (column, yl, #205); 
put_char (column, y2, #205); 
end; 
for line := yl to y2 do 
begin 
put char (x1, line, #186); 
put_char (x2, line, #186); 
end; 
Peeechar (xl, yl, #201); 
Peeechar (x1, y2, #200); 
pumeechar (x2, yl, #187); 
Beerechar (x2, y2, #188); 
if length (title) <> 0O then 
begin 
mcaent .= ({x2 —- xl + 1) = (length (title) + 2)) div 2; 
pieectring (xl + indent, yl, ’ ‘+ title +’ ‘) 
end 
end; 


procedure shade window (xl, yl, x2, y2, color : integer); 


var 
position : integer; 


begin 
Peste10on := x1 + 1; 
repeat 
mec char (position, y2 + 1, #219); 
eelorm foreground (position, y2 + 1, position, y2 + 1, 
Sol Or) ; 
Maer (position) 
until position > x2 + 2; 
BPesition := yl + 1; 
repeat 
pieeechar (x2 + 1, position, #219); 
Puleechar (x2 + 2, position, #219); 
Senor foreground (x2 + 1, position, x2 + 2, position, 
COler) ; 
mcr (position) 
ier’ position > y2 
end; 
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procedure display error _ message (title, linel, line2, line3, 
line4 * strangss)s; 


begin 

Save _ screen; 

draw_window (21,9,60,17, yellow, red, title); 
shade window (21,9,60,17, black) ; 

center text (11, linel, yellow); 

center text (12, line2, yellow); 

center text (13, line3, yellow); 

center text (14, line4, yellow); 

center text (16, ‘press any key’, white); 
key := get_key; 

key := null; 

restore screen 

end; 


function edit field (field : field record) -estrimiece 


var 
screen string 2 Stringse. 
exit_edit field : boolean; 
1: integer; 


procedure highlight field (field ; fielderecoraG 


begin 

with field do 
begin 
color background (x1-1, yl, x2+1, y2, field backeoltewe 
color foreground (xl1-1, yl, x2+1, y2, field forecoleme 
if field _ type in [strg, dtg]} then 


begin 
ot = 20 tele 
repeat 

decr  (1)s 


gotoxy (1 + 1, yi) 
until (1 = xl = 1) or (get char (1, "y1l)==sotame 
end 
else 
GJOCOXY -(x eva 
end 
end; 


procedure restore field (field : field record); 


begin 

with field do 
begin 
color_background (xl-1, yl, x2+1, y2, menuwbaclcerems 
color foreground (x1-1, yl, x2+1l, y2, menugtorceoteas 
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if field _ type in [(strg, dtg]} then 
begin 
i := x2 + 1; 
repeat 

deer (i); 

GOCOXY (1 sey) 
Unellette-exkl — 1) of (get cChare(1, yl) <> blank) 
end 

else 
gotoxy (xl, yl) 
end 
end; 


procedure display edit_field help screen; 


begin 

save_screen; 

remove cursor; 

draw window (16,5,65,19, blue, lightgray, ‘’help’); 
shade window (16,5,65,19, black); 

center text (12, ‘NO HELP AVAILABLE AT THIS TIME’, blue); 
center text (17, ‘press any key to return’, blue); 
key := get_key; 

key := null; 

Mescore Cursor; 

feeeore screen 

end; 


begin 
restore cursor; 
if insert_on then 
begin 
mmemstraing (77,25, 'INS’); 
misor LOreground (77,25,79,25, blue) 
end 
else 
Mee string (77,25, ’ Ys 
beentight field (field); 
exit_edit_ field := false; 
repeat 
key := get _ key; 
case key of 
SipearrOw, down arrow, escape, enter, 
feet foe ft, £6, me peto, £9, £107 
page_up, page_down : 
exit_edit field := true; 
fl : display _edit_field_help_ screen; 
insert_key : begin 
if insert _on then 
begin 
PieESERING AGgn25, “INS’); 


JS 


color foreground (77,25979,25, 00 0048 


end 
else 
put string (77,25) " 
end; 
backspace : if wherex = field.xl then 
beep 
else if wherex = field.x2 + 1 then 
begin 


gotoxy (wherex - 1, field.yl); 
put_char (wherex, wherey, blank) 


end 
else 
begin 
gotoxy (wherex - 1, field.yl); 
for 1 := wherex + 1 to field.x2 do 


put char (i ~ 1, field.yl, getwemem 
Oi field, 
put char (field.x2, field.yl, Pillans 
end; 
delete key : if wherex = field.x2 + 1 then 
beep 
else 
begin 
for 1 := wherex + 1 to field.x2 do 
put_char (1 - 1, field.y¥, getchtam 
(ieee Fed davasae: 
put char (fileld.x2, field.yl, Blam 
end; 
left_arrow : if wherex = field.xl then 
beep 
else 
gotoxy (wherex - 1, field.yl); 
right_arrow : if wherex = field.x2 + 1 then 
beep 
else 
gotoxy (wherex + 1, field.yl); 
home key : gotoxy (field.xl1, field.yl); 
end key : begin 


1 := field.x2 + 1; 
repeat 
decree (in) 


gotoxy (ite, fielde aD 
until (1 = field.x1l - 1) or 
(get char (1, field.yi) <= blank) 


end; 
else 
begin 
if insert _on then 


begin 
if wherex®= field.x2pe then 


Ske 


beep 


else 
begin 
for i := field.x2 downto wherex + 1 do 
But char (lipeammcladnyl, get _char (1 _ 1, 
pee lad.yi)); 


put_char (wherex, field.y1l, chr (key)); 
gotoxy (wherex + 1, field.yl) 


end 
end 
else 
begin 
if wherex = field.xl then 
begin 
for 1 := field.x1l to field.x2 do 


pucechal 4a, 12eld.yi, blank); 
put char (field.xl, field.yl, chr (key)); 
gotoxy (fields x1 + 1, field.yl) 
end 
else if wherex = field.x2 + 1 then 
beep 
else 
begin 
put _char (wherex, field.yl, chr (key)); 
gotoxy (wherex + 1, field.yl) 
end 
end 
end 
end 
until exit edit field; 
memed := field.x1 to field.x2 do 
Sereen string [1 - field.xl + 1] := get char (1, 
field.yl); 
fee rield.x2 + 1; 
repeat 
fecr (1) 
Pie (1 = field.x1 - 1) or (getechar (i, field.yl) <> 
blank) ; 
screen string (0) := chr (i - field.xl1 + 1); 
edit_field := screen string; 
mestore field (field); 
remove cursor 
end; 


procedure display edit screen_help line; 


begin 

ereamearea (1,25,80,25); 
Peemenar (1, 25, #24); 
Pemmenar (2, 25, #25); 
Peeechar (3, 25, #60); 
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PUL Char (4, 
pur Strings 
ESC-Done’ ) ; 
color _ foreground 
color_foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color _ background 
end; 


25, 


25, 


42 haa 


‘-Choose Fi-Help F4-Print screen 
(1,255.4), 25 Bea, 
(5,25, 11,25.) Plager 
(14,25,15; 25 eed 
(16,25,20,25, blue, 
(23,25, 24pe6, redue 
(25,297 35/,29,n20Ive. 
(40,25, 42,25, red): 
(43,25,47,25, .iues 
(1,25,80,25, Iitohtanmay, 


procedure display _edit_list_help line; 


begin 

clear area (17,25, 8072505, 
put char (1, 25, #2498 
put char (2, 25, #2538 
put cham (3 25s oon 
put char (4, 257 #2i798 


put string ee). 2oF 
put string “(tayo 


‘’-Choose’); 


color foreground 
color foreground 
color foreground 
COlen horned .oune 
color _ foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color_foreground 
color foreground 
color background 
end; 


‘Fl-Help F4-Print F5-Add F6é-Delete ‘+ 
‘F7-Edit F8-Search ESC-Done’); 

(1,25,4, 25) Gece: 

(5,25, Ll n2s eo bue)e, 

(13,25,14,725, redhe 

(15, 2.5920)25 a ue a. 

(21, 25,22, 25) aseecne 

(23,25,29, 25, blue: 

(30m25,31,25, rede 

(32, 25,736,25, voluens 

(37,25, 38,25, eee, 

(39,25, 46R25, “bbues, 

(47,257,748, 25-5 rede 

(49,25,54,25, blue); 

(55,25, 562550 Kenn, 

(57,25,64,25, blue. 

(65, 25,67, 2535 ream. 

(68s 25,72;25, bien 

(1,25,80,25, Ilve@htamary 


procedure display command_help line; 


begin 

Cleat vanecom (a. 2 5), 
put char gal Zor 
put. char (G25, 
put char (272 o- 


860,25). 
+ 240m 
#25); 
#60); 


Sale 


Beeechar (4, 25, 


pile string (5, 25, 


color foreground 
color foreground 
color_foreground 
color foreground 
color foreground 
color _ foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color_background 
end; 


tee ee 
‘~Choose 


Fi-Help F2-Execute command 


+ 


'F4-Print ESC-Abort’); 


(1725, 452 Sel ea); 
(5, 25,11) ,257ee rue); 
(iar 25 , 15825 7e rea) ; 
(16,25, 20725, blue) ; 
(23, 22:, Sdeaddes TEC) ; 
(25,25,40,.25,; 7" blue) ; 
(43,25,44,25, red); 
(45,25,50,25, blue); 
(53,25,55,25, red); 
(56,25), 6102 Se ue); 


(1,25,80,25, lightgray) 


procedure display _add_record help line; 


begin 


clear area (1,25, 


Meeechar (1, 25, 
Meerchar (2, 25, 
Mienchar (3, 25, 
mee char (4, 25, 


Baeestring (5, 25, 


color foreground 
color foreground 
color foreground 
color foreground 
color foreground 
color_foreground 
color foreground 
color foreground 
color_foreground 
eovor foreground 
color background 
end; 


procedure edit screen (var number_of_fields 


var 
field number 
error value 


good _value_ entered 


1 : integer; 


80,25); 
#24); 
#25) ; 
#60); 
#217); 
‘e-Choose Fi-Help F2-Add record /’+ 
'F4-Print ESC-Abort’); 
(ie 2545.25, red); 
(Sco ae oe blue he 
(14,25,15,25, red); 
GPG, 25,20,25, blue) ; 
(23525 924,05 aeed))- 
(25g Dp DLue) ; 
(3i8525,509,25, red) 
(40,25,45,25, blue); 
(48, 245,50, 25, red) ; 
(51,25,56,25, blue); 
Giee25) 6025, icgntqray) 
integer; 


var field data field_array; 
abort_possible boolean) ; 
integer; 
integer; 
boolean; 


Peecedure display edit_screen_help screen; 


Sane 


begin 

Save_screen; 

remove cursor; 

draw_window (16,5,65,19, blue, lightgray, “nel 
shade window (16,5,65,19, black); 

center text (12, ‘NO HELP AVAILABLE AT THIS TIME’, blue); 
center text (17, ‘press any key €O return | Sige 
key := get_key; 

key := null; 

FeESCOrenCunsetm, 

EES tOre | Sereen 

end; 


procedure print bad int_message; 


begin 
display error message (’INPUT ERROR’, 

TInteger Input eCreome 

null string, 

‘input is either not a valid number 
Ola 4 

‘is out of allowable range of 
values’) 
end; 


procedure print_bad_ float_message; 


begin 
display error_message (’INPUT ERROR’, 

‘floating point input emsor | 

nude string, 

‘input is either not a valid number 
One. 

‘is out of allowable range of 
values’ ) 
end; 


procedure print_bad dtg message; 


begin 
display error message (’INPUT ERROR’, 
‘dtg input format sereom s 
null] strane, 
‘proper format : ’’05 05302 2a) 
Sas 
‘spaces may be omitted’) 
end; 


procedure print_bad time _message; 
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begin 
display error_message (’INPUT ERROR’, 
“EIMe inpubeercor’ , 
null "stwa ne, 
'pae@pemereormat . ’’05302’7’, 
null string) 
end; 


procedure print_bad_chr_message; 


begin 
display _error_message (’INPUT ERROR’, 
“Gnaraceereinput error’, 
null sstwange 
‘character entered is not allowed’, 
‘in this field’) 
end; 


procedure print_bad_enum_message; 


begin 
display _error_message (’INPUT ERROR’, 
‘character input error’, 
null string, 
‘characters entered are not allowed’, 


fanoehis file reas 
end; 


begin 
save screen; 
for field_number := 1 to number of fields do 
with field data {field number] do 
begin 
put_string (label _x, label y, label string); 
if length (str_val) > (x2 - x1 + 1) then 
Semmeval (O] := chr (x2 - xl + 71); 
if field_ type in [int, float] then str val := 
remove_blanks (str_val); 
pucestumg (x1,"yi str val) 
end; 
field number := 1; 
repeat 
with field_data [field_number] do 
begin 
Semeval >— edit field (field data [field number]); 
1f (key = enter) or (key = up arrow) or (key = 
down_arrow) or 
(key = page_up) or (key = page down) or (key = f4) 
oie 
((key = escape) and not (abort possible)) or 


JOE 


((key = £2) and (abort _possible)) then 


begin 
case field type of 
BP rae : begin 
val (str_val, int_value, error value) ; 
good_value_entered := (error_value = 0) 


and 
(int_value >= 
int_min_value) and 
(int value <= 
int _max_ value) ; 
if not good _value_ entered then 
print_bad_int_message 
end; 
float : begin 
val (str_val, float_value, error_value); 


good value entered := (error value = 0) 
and 
(float_value >= 
float min_value) and 
(float_value <= 
float_max value); 
if not good value entered then 
print _bad_ float_message 
eme, 
ch : begin 
str val := upper case (str_val); 
good value entered := 
str_val [1] in valid _char_set; 
if not good value entered then 
print bad chr message 


end; 
strg : begin 
good value entered := true 
ena, 
enum : begin 
str_val := upper case (str_val); 
good value entered := false; 
for i := 1 to number of _enum_values do 


good value entered := 
str val = valid_enum_values [1]; 
if not good value entered then 
print _bad_enum_message 


end; 

dtg : begin 
str _ val := upper case (str_val); 
good value entered := valid dtg 


(Stmaval jy 
if not good value_entered then 
print bad dtg_ message 
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end; 
time : begin 
Stpevale:— Upper Case (str val); 
good value_entered := valid _time 
(str_val); 
if not good value_entered then 
print bad time_message 
end; 
eval : good _value_entered := eval_function 
(str val) 
end; 
if good value _entered then 
case key of 


£4 : print_screen; 
up_arrow : if field_number = 1 then 
begin 


if not abort_possible then 
field_number := 
number of fields 
end 
else 
decr (field_number); 
down_arrow, 
enter : if field_number = 
number of fields then 


field number := 1 
else 
incr (field_number) 
end 
end 


end 
until (key = escape) or 


((key = page down) and not abort possible) or 
((key = page _up) and not abort possible) or 
((key = enter) and (number of fields = 1)) or 
((key = £2) and (abort_possible)); 
restore screen 
end; 
function menu_selection (menu_title : string80; 
menu_options : option_string): 
integer; 
type 


menu_option = record 
eption ;: string8s0; 


option number : integer; 
Paeevil, X2, Y2 : integer 
end; 


option_array = array [1..20] of menu_option; 
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var 
optionM@ast ; Option vamea,, 
number _menu_options : integer; 


procedure create _option_list (menu_options : option_string; 
var option_list : 
option_array? 
var number_menu_options : 
integer) ; 


var 
position : integer; 
option_string_length : integer; 
opt num : integer; 
skip lines : integer; 


begin 
position := 1; 
number _menu_options := 0; 
while menu_options [position] <> ’\% do 
begin 
incr (number _menu_options) ; 
with option_list [number _menu_options] do 


begin 
option_string_length := 0; 
while not (menu_options [position] in [’\’,’|’]) do 
begin 
incr (option_string_length); 
option [option_string_ length] := menu_options 
[peste 1oni 
incr (position) 
end; 
option {0] i:mechr (option string, VYengen)r 
option_number := number _menu_options; 
Xl := ((menu_x2 - menu_xl + 1 - length (option)) 
div 2) + menuge.. 
x2 := xl + length (optic) ieee, 
if menu_options {position} = ’|’ then incr 
(position) 
end 
end; 


if number_menu_options < 10 then 
skip lines := 


(((menu_y2 - menu_yl) - (2 * number_menu_options - 1)) 
Givy=2). 4 2 
else 
skip lines := 
(((menu_y2 - menu_yl) - (2 * ((number_menu_options + 
1) div 2) - 1) ) Seavey ee 
for opt_num := 1 to number _menu_options do 
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with option_list [opt num] do 


begin 
if number_menu_options < 10 then 
begin 
X1 := ((menu_x2 - menu_x1 + 1 - length (option) ) 
div 2) + menu_x1; 
yl := (menu_yl + skip lines - 1) + (2 * opt_num - 
1) 
end 
else 
begin 
if opt _num <= (number menu_options + 1) div 2 then 
begin 
yl := (menu_yl + skip lines - 1) + (2 * opt_num 
= 1 
X1 := menu_Xl + 4 
end 
else 
begin 
yl := (menu_yl + skip lines - 1) + 
(2 * (opt _num - ((number_menu_options + 1) 
my 2)) - 1); 
X1 := menu_x1l + ((menu_x2 - menu_x1 + 1) div 2) 
2 
end 
end; 
Zoe xi Length (option) - 1; 
y2 := yl 
end 
end; 
procedure display _menu_screen (menu_title : string80; 
Spetohevist Option array; 
number _menu_options 
integer) ; 


procedure display _ options (option list : option array; 


number _menu_options : integer); 
var 
opt_num : integer; 
begin 
for opt_num := 1 to number _menu_options do 


with option_list [opt num] do 
pue string (x1, y1, option) 

end; 
procedure display_menu_help line; 


begin 
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Clear area {1,25,807, 2255 

put ichar (1),6:25, fae 

putmehar (2 je25, “Fone 

put string (3, 25,7) -eneoce on 

put char (12, 25iue60); 

put char’ (13, 257 200) 

put.stming (14, 25, “=Seleer ae 

put string (23, 25,7 Fi-Hepe os, 

color foreground (1,25,2,25,.) 24a Rr 
color foreground (3,25/79,)25,.0.0e 8 
color foreground (12,257,723) 25>, .ca 
color foreground (14,25,20,25, blue); 
color foreground (23725, 24725 ;eueaye 
color foreground (25, 25,30, 2o.eeooe 
color_background (1,25,80, 25, l¢gheguay® 
end; 


begin 

draw window (menu_xl, menu_yl, menu_x2, menu_y2, 
menu_forecolor, menu_backcolor, menu_title); 

display options (option_list, number _menu_options) ; 

display menu_help line 

end; 


function get option {option list ; optionvannare 
number menu_options : integer): 
integer; 


var 
opt _ num : integer; 


procedure highlight option (field : menu_option); 


begin 

with field do 
begin 
color background (x1i-1, yl, x2+1, y2, option backcotoms 
color foreground (xl1-1, yl, x2+1, y2, option forecoltom 
end 

end: 


procedure restore option (field : menu_option) ; 


begin 

with field do 
begin 
color background (x1-1, yl, x2+1, y2, menu) Dbackecotenm 
color foreground (x1-1, yl, xX2+1l, y2, Menumeoreceoteaw, 
end 

end; 
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procedure display menu_help screen; 


begin 

save_screen; 

draw window (16,6,65,20, blue, lightgray, ‘’help’); 

shade window (16,6,65,20, black); 

center text (13, ’NO HELP AVAILABLE AT THIS TIME’, blue) ; 
center text (19, ’press any key to return’, blue); 

key := get_key; 

key := null; 

restore screen 


end; 

begin 

opt_num := 1; 

Begolaght option (option _ list [opt_num])); 
repeat 


key := get_key; 
case key of 
enter 
get_option := opt_num; 
up _arrow 
begin 
restore option (option list [opt_num]) ; 
if opt _num = 1 then 
opt num := number menu_options 
else decr (opt_num); 
nignmiaghiesopelone(Option list [opt_num]) 
end; 
down_arrow 
begin 
GestOre Optlomms option list f[ept mum)); 
if opt_num = number_menu_options then 
opt_num := 1 
else incr (opt_num); 
Peon light Option (Option list [opt_num])) 
end; 
left_arrow 
if (number _menu_options >= 10) and 
(opt _num > (number menu_options + 1) div 2) 


then 

begin 

restore option (option list [opt_num]); 

opt num := opt num - ((number_menu_options + 
meciy 2); 


bignlitght option meopelen list [opt num) 
end; 
Right arrow 9: 
if (number_menu_options >= 10) and 
(opt_num + ((number_menu_options + 1) div 2) 
<= number _menu_options) then 
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begin 
restore option (option_list [opt_nun}) ; 


opt num := opt_num + ((number_menu_options + 
Ly raaiwe 2 

highlight_option (option_list [opt_num}) 

end; 

ys 
display _menu_help screen 
end 

until key = enter 
end; 
begin 


save _ screen; 
create option list (menu_options, option_list, 
number menu_options) ; 

display _menu_screen (menu_title, option list, 
number _menu_options) ; 

menu_selection get option (option tise 
number menu_options) ; 

Est ebe jo ereem 


end; 
function get file (prompt, message string80; search _mask 
Girstr).: pacheter, 
const 
number fields = 1; 
fields array [(1..number_ fields) of field _record = 
( (label string ‘Di rectomy ‘; label x 183 
lal e Ia a 
str_val nial sterng?y 
xa Sl pay lL 7 | ee 60; y2 Wy 
field type Strg) soe 
file _window_xl = 10; 
file window _yl = 10; 
file window _x2 = 71; 
file window_y2 = 21; 
file window_backcolor = cyan; 
file window forecolor = blue; 


Ey pe 
file listipe. 


“file list record; 


file_ list record = record 
line string60; 
previous file lwgse ype, 
next file list ptr 
elja, 
var 
file list file list pir, 
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path_valid : boolean; 
list length : integer; 
heap state : pointer; 
file error : integer; 


procedure display _getfile_help screen; 


begin 

save_ screen; 

draw window (16,5,65,19, blue, lightgray, ’help’); 
shade_window (16,5,65,19, black); 

center _ text (12, ‘NO HELP AVAILABLE AT THIS TIME’, blue); 
center text (17, ‘press any key to return’, blue); 

key := get key; 

key := null; 

restore screen 

end; 


procedure display getfile_ screen (prompt, message 
string80; search_mask : dirstr); 


procedure display getfile help line; 


begin 

BPorechar (1, 25, #24); 

Boeechar (2, 25, #25); 

Beeechar (3, 25, #26); 

Pueechar (4, 25, #27); 

Beemotring (5, 25,. ’-Choose’); 
Berechnar (14, 25, #60); 

Pwermehnar (15, 25, #217); 

Beemstring (16, 25, ’-Select’); 
Mmemetring (25, 25, ‘’Fi-Help’); 
put _ string (34, 25, ’F4-New mask’); 
Mueestring (47, 25, ’ESC-Quit’); 
menor foreground (1,25,4,25, red); 
meer Loreground (5,25,11,25, blue); 
meer Loreground (14,25,15,25, red); 
Semor foreground (16,25,22,25, blue); 
memor fLoreground (25,25,26,25, red); 
menor toreground (27,25,31,25, blue); 
eomeor.toreground (34,25,35,25, red); 
Bemor foreground (36,25,44,25, blue); 
Somon foreground (47,25,49,25, red); 
Sewer foreground (50,25,54,25, blue); 
Peter background (1,25,80,25, lightgray) 
end; 


begin 
draw_window (menu_xl, menu_yl, menu_x2, menu_y2, 
menu_forecolor, menu_backcolor, prompt); 
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draw_window (file _window_xl, file _window_yl, file _window_x2, 
file window _y2, 
file window_forecolor, file _window_backcolor, 

search mask) ; 
put_string (fields [1].label_x, fields [1]}.label y, 

fields [1].label_ string + search_mask) ; 
center text (fields [1].label_y - 2, message, 
file window_backcolor) ; 
display _getfile help line 
end; 


function check path (search mask : dirstr): boolean; 


var 
file info : searchrec; 
valid path : boolean; 


begin 
findfirst (search mask, anyfile, file info); 
file error := doserror; 
if file error < -Omenen 
begin 
save screen; 
draw window (26,13,55,16, yellow, red, null) strings 
shade window (26,13,55,16, black) ; 
case doserror of 
3: begin 
center text (14, ‘PATH NOT FOUND’, yellow); 
center text (15, ‘press any key’, white); 
key := get_key; 
key := null 
end; 
18°: begun 
center text (14, ‘NO FILES FOUND’ ()yctecw. 
center text (15, ‘press any key’, white); 


key := get_ key; 
key := null 
end; 


152-2 ebegqan 
center text (14, ‘DISK ERROR’, Yelmtowr 
center text (15, ‘Retry or Abort (yellows 
color foreground (34,15,34,15, white); 
color foreground (43,15,43,15, white); 
repeat 
key := get_key; 
if chr (Key) in [{%a’) A aipthes 
begin 
restore screen; 
check path := (file error = 0); 
exit 
end 


3.3510) 


else if chr (key) in [{’r’, ‘’R’) then 
valid path := check_path (search_mask) 
until (file error <> 152) or (chr (key) in 
ea’, *A’)); 
end 
else 

begin 

center text (14, ‘PATH ERROR’, yellow); 

center text (15, ‘’press any key’, white); 


key := get_key; 
key := null 
end 
end; 
restore screen 
end; 
check path := (file_error = 0); 


end; 


function get file list (search_mask : dirstr; 
var list_length : integer): 
pele list ptr; 


const 
plank 60 = ’ ear 


, , 


var 
number of files : integer; 
file info : searchrec; 
column : integer; 
list_head : file list ptr; 
este tail :; file list _ ptr; 


begin 

number of files := 1; 
list_length := 1; 

Solumn := 2; 

new (list head) ; 
list_head*.line := blank_60; 
list_head*.next := nil; 

list _head*.previous := nil; 
list_tail := list_head; 


findfirst (search mask, anyfile, file info); 
while (doserror = 0) do 

begin 

delete (list _tail’*.line, column, length 
(file info.name) ); 

insert (file_info.name, list_tail*.line, column); 

if file info.attr = directory then 

list_tail*.line [column + length (file _info.name) } 

Px 3 
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findnext (file info); 
if doserror = 0 then 
begin 
incr (number_of_files) ; 
if (number _ of _ files mod 4) = 1 then 


begin 

new (list_tail*.next) ; 

list tail*.next’*.next := nil; 

list tail*.next*.previous := list_tail; 
list tail*.next*.line := blank_60; 


list tail := list_tail%*.next; 
incr (list_length) ; 


column := 2 
end 
else 
column <= €olunn + tS 
end 
end; 
get file list := list_head 


end; 


function get_file name (search_mask : dirstr; 
file list ; file list J pea 
list_length : integer as 
pathstr; 


var 
list pointems sf item stare. 
done : boolean; 
file name : pathstr; 


dir <= digsctrrm. 
name : namestr; 
ext ¢ extster: 


procedure highlight file; 


begin 
color foreground (file_window_xl + wherex, 
file window_yl + wherey, 
file window_xl + whenex )+ jie” 
file window_yl + wherey, 
yellow) ; 
color_background (file _window_xl + wherex, 
file window_yl + wherey, 
file window_xl + wherex + 13, 
file window_yl + wherey, 
magenta) 
end; 


procedure restore file; 
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begin 
color foreground (file _window_xl + wherex, 
file window_yl + wherey, 

file window_xl + wherex + 13, 
file window_yl + wherey, 

file window_forecolor) ; 
color background (file_window_xl1 + wherex, 
file window_yl + wherey, 

file window_x1 + wherex + 13, 
file window_yl + wherey, 

file window_backcolor) 
end; 


begin 
draw_window (file _window_x1, file_window_yl, 

file window_x2, file window y2, 

file window_forecolor, file window_backcolor, 
search_mask) ; 
window (file _window_x1 + 1, file_window_yl + 1, 

file window_x2 - 1, file _window_y2 - 1); 

textbackground (file window _backcolor) ; 
textcolor (file window_forecolor) ; 


eEScr ; 

list pointer := file_list; 
done := false; 

repeat 


put_string (file window _xl + wherex, file window_yl + 
wherey, 
list pointer’.line) ; 
if (list _pointer’.next <> nil) and (wherey <> 10) then 


begin 
gotoxy (wherex, wherey + 1); 
list_pointer := list _pointer’.next 
end 
else 
begin 
gwocoxy (1,1); 
list_pointer := file list; 
done := true 
end 


until done; 
hoegmivght file; 
repeat 
key := get_key; 
case key of 


enter 
begin 
file_name := copy (list _pointer’*.line, wherex + 1, 
12); 
if pos (’\’, file_name) = O then 
begin 
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fsplit (search mask, dir, name, ext); 

get_file name := dir + file name 

end 

else 

begin 

save_screen; 

Graw_window (26,13,55,16, yellow, red, 
null stringy); 
shade window (26,13,55,16, black) ; 
center text (14, ’CANNOT SELECT SUBDIRECTORY’, 


yellow) ; 
center text (15, ‘press any key’, white); 
key := get_key; 
key := null; 
restore screen 
end 
end; 
ial 


display getfile help screen; 
up arrow, 
down arrow, 
left_arrow, 
right_arrow 
begin 
restore file; 
case key of 
up_arrow 


if wherey <> 1 then 
begin 
gotoxy (wherex, wherey - 1); 
list pointer := list_pointer’.previous 
end 


else if (wherey = 1) and 
(list_pointer*.previous <> nil) then 
begin 
list_pointer := list _pointer”%.previous; 
insline; 
put_string (Gale _windew xl 777, 
file window _yl + wherey, 
listupointer> iene) 
end; 
down_arrow 
if (wherey <> 10) and (list _pointer*.next <> 


nil) and 
(list pointer’*.next*.line [wherex + 1] <> 


blank) then 


begin 

gotoxy (wherex, wherey + 1); 
list_pointer := list pointer’*.next 
end 
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else if (wherey = 10) and (list_pointer’.next 
<> nil) and 


(list _pointer’.next’*.line [wherex + 
1) <> blank) then 


begin 

list_pointer := list_pointer%’.next; 
gotoxy (wherex, 1); 

delline; 


gotoxy (wherex, 10); 
put_string (file window _x1 + 1, 
file window_yl + wherey, 
list _pointer’.line) 
end; 
left_arrow 
if wherex <> 1 then 
gotoxy (wherex - 15, wherey) 
else if wherex = 1 then 
begin 
if wherey <> 1 then 
begin 
list pointer := list pointer’.previous; 


gotoxy (wherex + 45, wherey - 1) 
end 
else if (wherex = 1) and 
(list pointer’.previous <> nil) 
then 
begin 
list pointer := list _pointer’.previous; 


insline; 
PuEesStuang (fille window x1 + 1, 
file window yl + wherey, 
list_pointer’.line) ; 
gotoxy (wherex + 45, wherey) 
end 
end; 
right _arrow 
if (wherex <> 46) and 
(get_char (file window_xl + wherex + 16, 
file window_yl + wherey ) 
<> blank) then 
gotoxy (wherex + 15, wherey) 
else if wherex = 46 then 


begin 
if wherey <> 10 then 
begin 
list_pointer := list_pointer%’.next; 
gotoxy (1, wherey + 1) 
end 
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else if (wherey = 10) and 
(list _pointer’.next <> nil) then 
begin 
list pointer := list_pointer%’.next; 
gotoxy (1), 
delline; 
gotoxy (1710; 
put string (tile wandoy 31 
file window_yl + wherey, 
list_pointer’.line) 
end 
end 
end; 
highlight file 
end 
end 
until (key = enter) or (key = escape) or (key = f4); 
restore file; 
textbackground (black); 
textcolor (yellow); 
Window (1,1,80,25) 
end; 


begin 
Save _ screen; 
mark (heap state); 


repeat 
display _getfile screen (prompt, message, search_mask) ; 
path valid := false; 
repeat 
search mask := edit field (fields [{1}); 
if key = enter then 


path_valid := check_path (search_mask) 
until (key = escape) or (path valid); 
if path_valid then 


begin 

file list := get _ file list (search_mask, list_length); 

get_file := get_file_ name (search_mask, file_list, 
list_length) 

end 


until (key = enter) or (key = escape); 
if key = escape then 
get_file := null_string; 
release (heap state); 
restore screen 
end; 


begin 
menu_xXl := menu_xl_ default; 
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menu_xX2 : 
menu_yl 
menu_y2 
menu_forecolor 
menu_backcolor 
option_forecolor 
option_backcolor 
field forecolor : 
field_backcolor 


menu_x2_ default; 
menu_yl_ default; 
menu_y2 default; 


menu_forecolor default; 
menu_backcolor_ default; 
option forecolor default; 
option_backcolor_ default; 
field forecolor default; 
field _backcolor default; 


default_mask := ‘’a:\*.%*’; 
stack_pointer := 0; 
month data [{1].days := 31; 
month_data [2].days := 28; 
month_data (3].days := 31; 
month data [4].days := 30; 
month data [5].days := 31; 
month _data [6].days := 30; 
month_data [7].days ;:= 31; 
month data [8].days := 31; 
month data [9].days := 30; 
month_data [10].days := 31; 
month data [{11].days := 30; 
month _data [12].days := 31; 
month_data [{1].name := ’JAN’; 
month_data [2].name := ‘FEB’; 
month_data [3].name := ‘’MAR’; 
month data [4].name := ‘APR’; 
month_data [5].name := ’MAY’; 
month data [6].name := ’JUN’; 
month_data [7].name := ‘JUL’; 
month data [8].name := ’AUG’; 
month_data [9].name := ’SEP’; 
month_data [10].name := ’OCT’; 
month_data [11].name := ‘NOV’; 
month data [12].name := ’DEC’; 
assign (fontfile, ‘fontfile’); 
reset (fontfile); 
if ioresult = O then 

begin 

Mer Loop := ‘A’ to ’Z’ do 

read (fontfile, letters [loop]); 
mer Loop := ‘0’ to ’9’ do 


read (fontfile, 


argues [loop |); 


close (fontfile) 


end 
else 
begin 


initialize screen; 
remove cursor; 
draw_window 


wey l2, ob le, yellow, red, null string) ; 
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center text (13, ’FONTFILE NOT FOUND’, 


yellow); 


center text (14, ‘CHECK DISK, THEN TRY AGAIN’, 
center text (15, ‘press any key’, white); 


key := get_key; 
key := null; 
restore cursor; 
initialize screen; 
halt 

end 


end. 


SoS 


yellow); 
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